Thanks Thanks:  0
Likes Likes:  0
Results 1 to 2 of 2

Thread: Finding the last filled row and appending to it

  1. #1
    Guest

    Default

    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
    Location
    KC, MO
    Posts
    18
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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.



Some videos you may like

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
  •