Hey guys, any suggestions on how I can speed up this MS Excel (2003
with XP) macro? Suggestions are welcomed.

Sub TransData()
'
StartTime = Time
Application.ScreenUpdating = False
Dim BidItem As String
Sheets("Revised Rate Table").Activate
NextRow = Range("A65532").End(xlUp).Row + 1
Sheets("Rate Data").Activate
Lastbiditem = Range("A65532").End(xlUp).Row
LastCol = Range("IV2").End(xlToLeft).Column
LastCol = 20
Lastbiditem = 50
For c = 7 To LastCol
ProjectNumber = Cells(1, c).Value
For r = 2 To Lastbiditem
If Cells(r, c).Value < "" Then
Sheets("Revised Rate Table").Cells(NextRow, 2).Value = Cells(r,
2).Value
Sheets("Revised Rate Table").Cells(NextRow, 3).Value = Cells(r,
4).Value
Sheets("Revised Rate Table").Cells(NextRow, 6).Value = Cells(r,
c).Value
Sheets("Revised Rate Table").Cells(NextRow, 1).Value =
ProjectNumber
If Sheets("Revised Rate Table").Cells(NextRow, 6).Value = " "
Then
GoTo 10
ElseIf Sheets("Revised Rate Table").Cells(NextRow, 6).Value <
1 Then
Sheets("Revised Rate Table").Cells(NextRow, 6).NumberFormat
= "0.00"
ElseIf Sheets("Revised Rate Table").Cells(NextRow, 6).Value
1 Then
Sheets("Revised Rate Table").Cells(NextRow, 6).NumberFormat
= "0"
10 End If
NextRow = NextRow + 1
End If
Next r
Next c
Application.ScreenUpdating = True
EndTime = Time
MsgBox ("StartTime " & StartTime & " EndTime " & EndTime)
End Sub