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.


  • Re: Copy Over Information


    and welcome to the forum


    Dim R As Long
    R = Sheets("Sheet2").Range("A1").SpecialCells(xlCellTypeLastCell).Row
    ActiveCell.EntireRow.Copy Destination:=Sheets("Sheet2").Range("A" & R + 1)

    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


Participate now!

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