Автозаполнение до определенного диапазона

Question

Я работаю над макросом, чтобы скопировать определенную информацию с одного рабочего листа на другой.

У меня есть вопрос, касающийся автозаполнения, которое я использовал в приведенном ниже коде. Можно ли выполнить автозаполнение только до определенного диапазона строк в зависимости от количества строк на рабочем листе A, содержащих данные вместо вставленной вручную «строки 5000»?

Код до сих пор включен ниже

Заранее спасибо.

Михель

P.S. Не обращайте внимания на все команды выбора, я не особо разбираюсь во всех программах VBA, и копирование данных не так уж и много, поэтому время выполнения ограничено.

Sub WorksheetB()
'
' WorksheetB Macro
'
' Sneltoets: Ctrl+Shift+H
'
Sheets("WorksheetB").Select
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "='WorksheetA'!RC"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "='WorksheetA'!RC"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "=IF('WorksheetA'!RC[6]>0,'WorksheetA'!RC[6],"""")"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = _
        "=CONCATENATE('WorksheetA'!RC[6],"" "",'WorksheetA'!RC[5])"
    Range("E2").Select
    Columns("E:E").EntireColumn.AutoFit
    Range("F1").Select
    ActiveCell.FormulaR1C1 = "=IF('WorksheetA'!RC[6]>0,'WorksheetA'!RC[6],"""")"
    Range("A1").Select
    Selection.AutoFill Destination:=Range("A1:A5000"), Type:=xlFillDefault
    Range("A1:A5000").Select
    Range("B1").Select
    Selection.AutoFill Destination:=Range("B1:B5000"), Type:=xlFillDefault
    Range("B1:B5000").Select
    Range("C1").Select
    Selection.AutoFill Destination:=Range("C1:C5000"), Type:=xlFillDefault
    Range("C1:C5000").Select
    Range("E1").Select
    Selection.AutoFill Destination:=Range("E1:E5000"), Type:=xlFillDefault
    Range("E1:E5000").Select
    Range("F1").Select
     Selection.AutoFill Destination:=Range("F1:F5000"), Type:=xlFillDefault
    Range("F1:F5000").Select
End Sub