run time error '6' --- Overflow

[magoobee]

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

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

EDIT: Fixed Code tags (Smitty)

 

[VoG]

Dim LastR as Variant

 

[xapie128]

You will get this error when Column A is totally blank. It's searching for data and runs all the way to the bottom.

Note also that LastR will only equal the first row with data if A1 is empty, or LastR will only equal the last row with data prior to a blank if A1 has something in it; i.e. if A1:A7 has data, A8 is blank, then A9:A20 contains more data, LastR will equal 7, not 20.

 

[magoobee]

Thanks for the help

Filling Column A worked. Thanks

Now my coloring does not work. Let me try and fix that before I ask for more help.

Life is tough when you do not know what your doing.

 

[just_jon]

Dim LastR as Long

Excel currently allows for 65,536 rows, soon to be ~1.1 million, so your Integer variable was being overrun.