Can't run macro created in 2003 to excel 2007

[norman+10]

Hi Guys,

Anyone who can help me figure out what's wrong with this code.

Sheets("excl").Select
Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter
Selection.AutoFilter Field:=71, Criteria1:="<>"
Dim Firstrow3 As Double
Firstrow3 = 2
Do Until Cells(Firstrow3, 1) = ""
Firstrow3 = Firstrow3 + 1
Loop
ActiveSheet.Cells(Firstrow3, 1) = ""
Range(Cells(Firstrow3 - 1, 1), Cells(1, 47)).Select
Selection.Copy
Sheets("Branford").Select
Cells.Select
ActiveSheet.Paste
Range("A1").Select

I have created this in excel 2003 but can't seem to get it running on excel 2007. Here's the purpose of the code. I have a tab named "excl" and then formulated columns were added to identify if a line belongs to a specific department given each specific parameters. The macro will filter those items like in this case "Branford". The macro will filter all non-blanks items under that columns and then transfer it to a "Branford' tab. I hope this makes sense.


Thanks in advance.



Norman