mtjanousek
New Member
- Joined
- Jul 25, 2018
- Messages
- 17
Hello,
I am trying to copy & paste values in column A from sheet 2 to sheet 3 and I want to copy all values starting with A2 till the end.
I was looking for a solution but without much success. I assume that the mistake is in selection of sheets. So far I have this:
I am trying to copy & paste values in column A from sheet 2 to sheet 3 and I want to copy all values starting with A2 till the end.
I was looking for a solution but without much success. I assume that the mistake is in selection of sheets. So far I have this:
Code:
Sub ExampleTest()
Dim lr As Long
Application.ScreenUpdating = False
' Find the last used row in Column A of Sheet 2
With Worksheets("Sheet2")
lr = .Cells(Rows.Count, "A").End(xlUp).Row
End With
Sheets("Sheet2").Range("A2:A" & lr).Value = Sheets("Sheet3").Range("A2:A").Value
End Sub