Macro Vlookup count

[Rbirdie]

I am new to VBA but I need to find a way to do this.

I have a macro that is doing multiple Vlookups. I need a way to have the
vlookup stop at the end of the column. Now it leaving NA to the end of the
column. Messy. Please understand that I need to be spoken to like I am 5 with
this. I am very good at Access and Excel, but new to VBA. Go easy on me.

Thanks.

"=VLOOKUP(C[-6],'[Assigned
Accounts.xls]Assigned_Accounts'!C1:C10,8,FALSE)"
Range("X2:Z2").Select
Selection.Copy
Range("T3:X3").Select
Range("X3").Activate
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.SmallScroll Down:=6
LastCell = Cells(Rows.Count, "A").End(xlUp)
Range("X1:Z65000").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("X2:Z2").Select

 

[Tom [Pepper] Willett]

And your FrontPage question is?
--
Tom [Pepper] Willett
Microsoft MVP - FrontPage
---------------------------
:I am new to VBA but I need to find a way to do this.
:
: I have a macro that is doing multiple Vlookups. I need a way to have the
: vlookup stop at the end of the column. Now it leaving NA to the end of the
: column. Messy. Please understand that I need to be spoken to like I am 5
with
: this. I am very good at Access and Excel, but new to VBA. Go easy on me.
:
: Thanks.
:
: "=VLOOKUP(C[-6],'[Assigned
: Accounts.xls]Assigned_Accounts'!C1:C10,8,FALSE)"
: Range("X2:Z2").Select
: Selection.Copy
: Range("T3:X3").Select
: Range("X3").Activate
: Range(Selection, Selection.End(xlDown)).Select
: ActiveWindow.SmallScroll Down:=6
: LastCell = Cells(Rows.Count, "A").End(xlUp)
: Range("X1:Z65000").Select
: ActiveSheet.Paste
: Application.CutCopyMode = False
: Range("X2:Z2").Select