Hi, I wonder whether someone could help me please.
I'm using the code below to select a range to copy from a 'Source' sheet to the next blank row on the 'Destination' sheet.
Code
Sub CopyRows()
Dim LastRow As Long
Dim destRng As Range
Application.ScreenUpdating = False
With Sheets("Combined")
Set destRng = .Range("B" & .Cells(.Rows.Count, "B").End(xlUp).Row + 1)
LastRow = Sheets("Monthly").Range("C" & Rows.Count).End(xlUp).Row
Sheets("Monthly").Range("B8:S" & LastRow).Copy Destination:=destRng
.Columns("B:S").AutoFit
End With
End Sub
Display More
Although the code runs without an error message being created, the data is paste at the top of the 'Destination' sheet, overwriting the existing data, instead of pasting it to the next blank row.
I've spent all day on this and read and tried multiple examples and tutorials without success.
I just wondered whether someone may be able to look at this please and let me know where I've gone wrong.
Many thanks and kind regards