I am running into a problems with this code. It is pasteing the copied data into A1 even when the last row a data is in another cell. There are multiple sheets that have seperate macros. This piece of code is in all the macros and is also "DIM" ed in all the macros. Could this be the problem. Any help would be greatly appreciated.
Sheets("Sheet2").Select
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Sheets("Sheet1").Select
LastRow = Range("A" & [a65536].End(xlUp).Row).Offset(1, 0)
ActiveSheet.Paste
I have also tried:
LastRow = Range("A65536").End(xlUp).Row + 1
Sheets("Sheet2").Select
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Sheets("Sheet1").Select
LastRow = Range("A" & [a65536].End(xlUp).Row).Offset(1, 0)
ActiveSheet.Paste
I have also tried:
LastRow = Range("A65536").End(xlUp).Row + 1