Jezreel
02-19-2016, 08:18 AM
Hi everyone, what offset modification do I need to do to the code so it pastes the data starting from column D?
Sub copypaste()
Dim Source As Worksheet, Destination As Worksheet, lr As Long, rng As Range
Set Source = Sheets("Query")
Set Destination = Sheets("1. Detail")
lr = Source.Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Source.Range("A4:A" & lr).EntireRow
rng.EntireRow.Copy
Destination.Cells(Rows.Count, 1).End(xlUp)(2).PasteSpecial xlPasteValues
End Sub
Thanks.
Sub copypaste()
Dim Source As Worksheet, Destination As Worksheet, lr As Long, rng As Range
Set Source = Sheets("Query")
Set Destination = Sheets("1. Detail")
lr = Source.Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Source.Range("A4:A" & lr).EntireRow
rng.EntireRow.Copy
Destination.Cells(Rows.Count, 1).End(xlUp)(2).PasteSpecial xlPasteValues
End Sub
Thanks.