I do not really know VBA, but did put together some macros. They use to work but now I get this error

Run-time error '6':
Overflow

The following is the code. I get the error on the last line when I debug. Any idea what is wrong? Thanks

[/code]
Sub ColorRate()
Dim LastR As Integer, CurrRow As Integer
Dim PercRange As Range, Thing
Sheets("STOCKS").Activate 'Activate sheet
Range("A3").Select 'Select top of column
Selection.End(xlDown).Select 'Find bottom of column
LastR = ActiveCell.Row 'Get row number