How to name multiple variables?

Thanks for any and all help in advance. It is greatly appreciated. Here is the code I have so far:
Sub PAASurgeons()
'
' PAASurgeons Macro
'
Sheets("Surgeons").Select
Dim LastRow As Long
LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).row
'


Range("E1").Select
ActiveCell.FormulaR1C1 = "=TEXT(RC[-1],""00000000"")"
Range("E1").Select
Selection.AutoFill Destination:=Range("E1:E" & LastRow)
Range("E1:E" & LastRow).Select
Selection.Copy
Range("D1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Columns("E:E").Select
' Application.CutCopyMode = False
' Selection.ClearContents
Range("A1").Select
Sheets("Schedule").Select
Dim Travis As Long
LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).row
Range("L1").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = "Surgeons"
Range("L2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-9],Surgeons!C[-7]:C[3],11,FALSE)"
Range("L2").Select
Selection.AutoFill Destination:=Range("L2:L" & Travis)
Range("L2:L" & Travis).Select
Range("A1").Select
End Sub

As you can tell I'm trying to have two variables (LastRow and Travis). The reason why is that the numbers of rows differ on the two sheets. So I need it to count how many there are on the surgeons sheet and have that as a variable and how many there are on the Schedule sheet as well.

THanks,

Please Login or Register  to view this content.