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.
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
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