thread,

I am a vba newbie, this small excerpt should get you started and works fine
for me.

Dim Lastrow As Long
Lastrow = Worksheets("urspreadsheet").Cells(Rows.Count, "A").End(xlUp).Row

Set SourceRange = Worksheets("urspreadsheet").Range("b2")
Set fillRange = Worksheets("urspreadsheet").Range("b2:b" & Lastrow)
SourceRange.AutoFill Destination:=fillRange

Add the three lines above as necessary for other columns.


"thread" wrote:

is it possible to autofill data in more then one field in one command
code when the cells are not close to each other?

for example
range("A1,D1,G1).select
i would like to autofill of them at one command is it posible?