Excel VBA скопировать определенные столбцы на другой лист

Question

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

Объяснение:

Столбец A рабочего листа A необходимо скопировать в столбецA рабочего листа B Столбец B рабочего листа A необходимо скопировать в столбец B рабочего листа B Столбец I рабочего листа A необходимо скопировать в столбец C рабочего листа B Столбцы K & J рабочего листа A необходимо скопировать в столбец E рабочего листаB

Сценарий ниже работает только в определенном диапазоне.Можно ли позволить диапазону зависеть от диапазона данных рабочего листа A (поэтому, если значения переходят от строки 1 к строке 589, просто скопируйте эти строки в рабочий лист B?)

Сценарий, приведенный ниже.

Заранее спасибо:)

Sub Hulpwerkblad()
'
' Hulpwerkblad Macro
'
' Sneltoets: Ctrl+Shift+H
'
Sheets("Hulpwerkblad").Select
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "='samenvattende meetstaat'!RC"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "='samenvattende meetstaat'!RC"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "='samenvattende meetstaat'!RC[6]"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = _
        "=CONCATENATE('gedetailleerde meetstaat'!RC[6],'gedetailleerde meetstaat'!RC[5])"
    Range("E2").Select
    Columns("E:E").EntireColumn.AutoFit
    Range("A1").Select
    Selection.AutoFill Destination:=Range("A1:A33"), Type:=xlFillDefault
    Range("A1:A33").Select
    Range("B1").Select
    Selection.AutoFill Destination:=Range("B1:B33"), Type:=xlFillDefault
    Range("B1:B33").Select
    Range("C1").Select
    Selection.AutoFill Destination:=Range("C1:C33"), Type:=xlFillDefault
    Range("C1:C33").Select
    Range("E1").Select
    Selection.AutoFill Destination:=Range("E1:E33"), Type:=xlFillDefault
    Range("E1:E33").Select
End Sub