instead of 3800 do this:
add these 2 lines at the top of the code:

dim ws as worksheet
dim lastrow as long

then add these 2 lines:
set ws = worksheets("Sheet1")
lastrow = ws.Cells(Rows.Count, "A").End(xlUp).Row

then for your range use this:

ws.range("A2:A" & lastrow)

i like to qualify the ranges with the sheet name, i used sheet1, use whatever
your sheet name is.
i used column A in the lastrow statement, use whatever column you are using.

--


Gary


"farid2001" wrote in message
...
Hello, I need help with code.

I have a macro that I use to process each calling card account's information.

A B C D
etc.
Date Number_dialed Location Duration

all columns have the same number of rows, but this number changes depending
of the amount of calls made from each account.

I have set the fixed range in my macro from 2:3800, but most of the time the
number of raws do'nt exceed 1000

Is there a way to just process the number of raws in each account instead of
going the full 3800?

Your help will be grately apreciated

Regards