Copy data for a varying number of rows with VBA

A worksheet is populated with data in specified columns, but each time the number of populated rows is different. I need a macro to identify and copy the data from the varying ranges that can exist....

excel

Macros and VBA

OliverScheurich

Aug 08, 2022

EdBogel

Sub copy()

Dim MaxRow As Long

Range("D:D").Clear

MaxRow = Range("A" & Rows.Count).End(xlUp).Row

Range("A1:A" & MaxRow).copy Destination:=Cells(1, 4)

End Sub

You can try this macro to indentify the range in column A and to copy the content to column D.

OliverScheurich

Gold Contributor

Aug 08, 2022

EdBogel

Sub copy()

Dim MaxRow As Long

Range("D:D").Clear

MaxRow = Range("A" & Rows.Count).End(xlUp).Row

Range("A1:A" & MaxRow).copy Destination:=Cells(1, 4)

End Sub

You can try this macro to indentify the range in column A and to copy the content to column D.

EdBogel

Copper Contributor

Aug 08, 2022

OliverScheurich

Thank you...that helps a lot.

Forum Discussion

Copy data for a varying number of rows with VBA

Resources