Autofill en variable range

Hejsa,
Jeg er i gang med og prøve og lære lidt vba, har ikke rigtig rodet med det før, men har nu et konkret behov jeg ikke kan løse.
Jeg vil gerne lave en autofill funktion der kun udfylder de antal rækker der er data i i en bestemt colonne.

Jeg har lavet understående macro, hvor jeg gerne vil erstatte de faste range referancer til at der i ark et autofilles det antal rækker der er i colonne AB, og i ark 2 det antal rækker der er data i i colonne A.

Jeg tænkte på og bruge en lastrownumber som en løsning, men kan ikke få det til og virke:
LastRowNumber = "A" & WorksheetFunction.CountA(Range("A1:A1000000"))???

Sub Macro1()
'
' Macro1 Macro
'

'
    Sheets("Sheet1").Select
    Selection.AutoFill Destination:=Range("AC2:AC2167")
    Range("AC2:AC2167").Select
    Range("AD2").Select
    Selection.AutoFill Destination:=Range("AD2:AD2167")
    Range("AD2:AD2167").Select
    Columns("G:G").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveSheet.Range("$A$1:$A$2167").RemoveDuplicates Columns:=1, Header:= _
        xlYes
    Range("A2").Select
    Selection.Delete Shift:=xlUp
    Columns("A:A").EntireColumn.AutoFit
    Range("B2").Select
    Selection.AutoFill Destination:=Range("B2:B563")
    Range("B2:B563").Select
    Range("C2").Select
    Selection.AutoFill Destination:=Range("C2:C563")
    Range("C2:C563").Select
    Range("D2").Select
    Selection.AutoFill Destination:=Range("D2:D563")
    Range("D2:D563").Select
    Range("E2").Select
    Selection.AutoFill Destination:=Range("E2:E563")
    Range("E2:E563").Select
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F563")
    Range("F2:F563").Select
    Range("G2").Select
    Selection.AutoFill Destination:=Range("G2:G563")
    Range("G2:G563").Select
    Range("H2").Select
    Selection.AutoFill Destination:=Range("H2:H563")
    Range("H2:H563").Select
    Range("I2").Select
    Selection.AutoFill Destination:=Range("I2:I563")
    Range("I2:I563").Select
    Range("J2").Select
    Selection.AutoFill Destination:=Range("J2:J563")
    Range("J2:J563").Select
    Range("K2").Select
    Selection.AutoFill Destination:=Range("K2:K563")
    Range("K2:K563").Select
    Range("L2").Select
    Selection.AutoFill Destination:=Range("L2:L563")
    Range("L2:L563").Select
    Range("M2").Select
    Selection.AutoFill Destination:=Range("M2:M563")
    Range("M2:M563").Select
    Range("N2").Select
    Selection.AutoFill Destination:=Range("N2:N563")
    Range("N2:N563").Select
    Range("O2").Select
    Selection.AutoFill Destination:=Range("O2:O563")
    Range("O2:O563").Select
    Range("P2").Select
    Selection.AutoFill Destination:=Range("P2:P563")
    Range("P2:P563").Select
    Range("Q2").Select
    Selection.AutoFill Destination:=Range("Q2:Q563")
    Range("Q2:Q563").Select
    Range("R2").Select
    Selection.AutoFill Destination:=Range("R2:R563")
    Range("R2:R563").Select
    Range("S2").Select
    Selection.AutoFill Destination:=Range("S2:S563")
    Range("S2:S563").Select
    Sheets("Sheet3").Select
    Range("A1").Select
End Sub