Finding the last filled row and appending to it
VBA Telemetry pings you when your VBA projects fail
Thanks Thanks:  0
Likes Likes:  0
Results 1 to 2 of 2

Thread: Finding the last filled row and appending to it

  1. #1


    Dear MrExcel..
    I just want to say that I really love your site . I also have a small problem that you might help solving it..
    I would like to run a VBA Code on an excel sheet
    1- It should locate all the rows that has data in them
    2-after finding all the rows , I want to copy then to another sheet in a different workbook
    3-before copying to the other sheet , I want the code to locate the last filled record and then past underneath it (Append)
    could you please help .

    I have started but could not finish
    this is what I did

    Dim I As Long
    Dim RngDestination As Range
    Dim Wkb As Workbook
    Dim Wks As Worksheet

    Set RngDestination = Wkb("Test for Annuity Daily Adds.xls") _
    .Wks("Annuity Rec Feb 2002").Range("A6522")

    Range(Selection, Selection.End(xlUp)).Select

    For i = Cells(Rows.Count, "A").End(xlUp).Row To i Step -1
    Cells(i, "A").EntireRow.Copy Destination:=RngDestination

    Next i
    End Sub

  2. #2
    New Member
    Join Date
    Apr 2002
    KC, MO
    Post Thanks / Like
    0 Post(s)
    0 Thread(s)


    Did you ever find a solution to this?

    If so, please post. I'm needing to do soemthing similar in migrating 8 reports (all same format, just different criteria) from an external database into one contiguous report within a master excel document.

    I'll repost this question of no answer in a few days. I hate to ask something that's already been addressed.

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts