Please help ?
I am using the following VBA for copying and pasting from Column A (Sheet1) to 1st available row on (OCT-DEC-2019) worksheet.
Public Sub QUARTER4()
'define source range
Dim SourceRange As Range
Set SourceRange = ThisWorkbook.Worksheets("Sheet1").Range("A2:A600")
'find next free cell in destination sheet
Dim NextFreeCell As Range
Set NextFreeCell = ThisWorkbook.Worksheets("OCT-DEC 2019").Cells(Rows.Count, "A").End(xlUp).Offset(RowOffset:=1)
'copy & paste
SourceRange.Copy
NextFreeCell.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
For the other columns from Sheet1, I need to paste them on the same row that Column A1 was pasted to. EX if Column A from sheet 1 was copied and pasted to column A, starting on Row 34 of OCT-DEC 2019 sheet, as this was the 1st empty row, then I need the next column B( or C, D etc) copied and pasted starting on Row 34 as well in column B (or C, D, etc). Hope this makes sense. Many sincere, grateful thanks.
I am using the following VBA for copying and pasting from Column A (Sheet1) to 1st available row on (OCT-DEC-2019) worksheet.
Public Sub QUARTER4()
'define source range
Dim SourceRange As Range
Set SourceRange = ThisWorkbook.Worksheets("Sheet1").Range("A2:A600")
'find next free cell in destination sheet
Dim NextFreeCell As Range
Set NextFreeCell = ThisWorkbook.Worksheets("OCT-DEC 2019").Cells(Rows.Count, "A").End(xlUp).Offset(RowOffset:=1)
'copy & paste
SourceRange.Copy
NextFreeCell.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
For the other columns from Sheet1, I need to paste them on the same row that Column A1 was pasted to. EX if Column A from sheet 1 was copied and pasted to column A, starting on Row 34 of OCT-DEC 2019 sheet, as this was the 1st empty row, then I need the next column B( or C, D etc) copied and pasted starting on Row 34 as well in column B (or C, D, etc). Hope this makes sense. Many sincere, grateful thanks.