如何在Vlookup VBA中使用lastRow

Question

I currently have three sheets called, Tracker , SIM Data , and Site Data . On the SIM Data sheet I have used the Vlookup function in VBA for columns G3 , H3 , and I3 to find the the site type, email, and site from the sheet Site Data that works just fine. Once the data is organized, I'm transferring that information onto the Tracker sheet which also works just fine.

My problem is that once the information is transferred onto the Tracker sheet, if I want to add any additional data it replaces the top data rather than starting from the bottom data that is already on the tracker. I am aware that lastRow can fix this issue but I'm not sure on how to input it (or where with the code I already have). Any help would be appreciated.

'SIM Data Macro
Sub SIM_Macro()
Dim lr As Long
Dim lr1 As Long
Dim lr2 As Long
 'Dim Gcell As Range
 'Dim lLastRow As Long
 'Dim LResult As String

lr = Sheets("SIM Data").Range("A" & Rows.Count).End(xlUp).Row

 'Select ranges and delete

    Range("A:A,H:J").Delete

 'Type in values in G3 and H3

    Range("$G$3").Value = "Site Type"
    Range("$H$3").Value = "Email"
    Range("$I$3").Value = "Site"

    Cells.EntireColumn.AutoFit

    Range("G4").Formula = "=VLOOKUP(LEFT(RC[-3],4),'Site Data '!C[-6]:C[4],2,FALSE)"

    Range("G4").AutoFill Destination:=Range("G4:G" & lr)

'VlookUp for email tab

    Range("H4").Formula = "=VLOOKUP(LEFT(RC[-4],4),'Site Data '!C[-7]:C[4],10,FALSE)"

    Range("H4").AutoFill Destination:=Range("H4:H" & lr)

'LEFT Formula for Site

    Range("I4").Formula = "=LEFT(RC[-5],4)"

    Range("I4").AutoFill Destination:=Range("I4:I" & lr)

    Cells.EntireColumn.AutoFit

    Range("G4").Sort key1:=Range("G4:G" & lr), _
    order1:=xlDescending, Header:=xlYes, _
    OrderCustom:=1, MatchCase:=False, _
    Orientation:=xlTopToBottom


' Keep the formulas on the tracker tab untouched.

    'Site Formula
    Sheets("Tracker").Activate


  Sheets("Tracker").Range("A5").Formula = "=INDEX('SIM Data'!A4:I100,1,9)"
  Range("A5").AutoFill Destination:=Range("A5:A" & lr + 1)


'SEV2 Formaul on Tracker sheet

    Sheets("Tracker").Range("B5").Formula = "=INDEX('SIM Data'!A4:H100,1,2)"
    Range("B5").AutoFill Destination:=Range("B5:B" & lr + 1)

' Formula for Site Type in Tracker Tab

    Sheets("Tracker").Range("F5").Formula = "=INDEX('SIM Data'!A4:H100,1,7)"
    Range("F5").AutoFill Destination:=Range("F5:F" & lr + 1)

' Formula for SIM in Tracker Tab

    Sheets("Tracker").Range("G5").Formula = "=INDEX('SIM Data'!A4:H100,1,1)"
    Range("G5").AutoFill Destination:=Range("G5:G" & lr + 1)

'Formula for Email

    Sheets("Tracker").Range("H5").Formula = "=INDEX('SIM Data'!A4:H100,1,8)"
    Range("H5").AutoFill Destination:=Range("H5:H" & lr + 1)

'Add hyperlinks to G (Sim) Column

lr1 = Sheets("Tracker").Range("G" & Rows.Count).End(xlUp).Row

    Sheets("Tracker").Range("G5:G" & lr1).copy
    Sheets("Tracker").Range("G5").PasteSpecial xlPasteValues

    Range("G5").Select
    For i = 5 To lr
        ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:=ActiveCell.Offset(5, 7).Value
        ActiveCell.Offset(6, 7).Select
    Next

'Add hyperlinks to H (Email) Column

lr2 = Sheets("Tracker").Range("H" & Rows.Count).End(xlUp).Row

    Sheets("Tracker").Range("H5:H" & lr2).copy
    Sheets("Tracker").Range("H5").PasteSpecial xlPasteValues

    Range("H5").Select
    For i = 5 To lr
        ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:=ActiveCell.Offset(5, 7).Value
        ActiveCell.Offset(6, 7).Select
    Next

    Application.CutCopyMode = False

    Range("A4").Select

End Sub

Answer 1

I ended up figuring it out.

Dim r As Range

Set r = Worksheets("SIM Data").Range("A4:A" & Application.Match("*", Worksheets("SIM Data").Range("G:G"), -1)) Set r2 = Worksheets("Tracker").Range("G" & Rows.Count).End(xlUp).Offset(1, 0) r.Copy r2.PasteSpecial xlValues