Re: Copy Over Information
Hi
and welcome to the forum
try
Code
Dim R As Long
R = Sheets("Sheet2").Range("A1").SpecialCells(xlCellTypeLastCell).Row
ActiveCell.EntireRow.Copy Destination:=Sheets("Sheet2").Range("A" & R + 1)
ActiveCell.EntireRow.Delete
which will copy the current row to Sheet2 (you will need to amend the name accordingly)
also be careful that none of the formulae in the source sheet have set ranges (i.e. those that look like $A$1)
Hope that helps
Robert