I am not sure what I have wrong here, I am not sure if it is just a simple formatting error or what. The basic script is just recorded using the Advanced Filter function. My problem is where I am trying to creat the range to be sorted, it is supposed to be "A2" to the last row with data in it. Any help on this would be appreciated

Sub a(

Dim LastRow As Varian

Sheets("StoredData").Selec
LastRow = Range("A65536").End(xlUp).Ro

Range("A2" & ("A" & LastRow)).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range(
"H1:H2"), CopyToRange:=Sheets("SendToFlightProgram").Range(" A1:G1"), Unique:=Fals
End Su

Thanks

Jim Stephens