Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub UpdateList()
- Dim lastRow As Long
- lastRow = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row
- Sheets("Sheet1").Range("A1:A" & lastRow).Value = Sheets("Sheet2").Range("A1:A" & lastRow).Value
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement