Move Range To Last Cell On Another Sheet

    Im trying to create a macro that when ran it copies all information from that row and puts it on a different worksheet.
    It needs to be put on the next available line in the new worksheet.
    and then the information deleted off the original and all rows moved up to fill in the gap. the rows all contain 2 formulas i'd like to keep specific to the row number
    Also it contains formulas id like to keep but change the cell numbers according to which row it is copied over to.


    hope this makes sense.


    I am new here so please be gentle with me!!


    thank you in advance for your help.


    Julie

    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

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!

Register Yourself Login