Code for ascending dates

[dpaton05]

I have a worksheet that copies to another sheet successfully but I want to add in the code for it to sort the dates in column A so it is in ascending order. The code I am using to sort that column gives me this error https://www.screencast.com/t/PfhLFOtFxR7 and the code is

Worksheets(combo).Range("A4:A1000").Sort Key1:=Range("A4:A1000"), Order1:=xlAscending

Combo is a variable that changes depending on the date and I have it successfully transferring into the correct sheet without the sort code. What code should I be using?

 

[dpaton05]

There is about 3 columns of data next to the date that will need to be sorted with the dates.

 

[dpaton05]

To begin with, the sheets are monthly so there will be no data in a sheet for the month.

 

[dpaton05]

This is the code I got from the macro recorder:

   ActiveWorkbook.Worksheets("August 2018").ListObjects("August18").Sort. _
        SortFields.Clear
    ActiveWorkbook.Worksheets("August 2018").ListObjects("August18").Sort. _
        SortFields.Add2 Key:=Range("August18[[#All],[Date of work]]"), SortOn:= _
        xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("August 2018").ListObjects("August18").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

That was just using one of my sheets ("August18") but I have a variable called combo that is set to a cell that makes of fields to arrive at the correct month to enter the costing into relative to the date on the costing. Should I just replace all the occurrences of "August18" with combo as that doesn't seem to work.