Help tidy up this VBA Code please

[Tinhare]

Rows(RowOffSet2 - 1).Select
FillRows = CStr(RowOffSet2 - 1) & ":" & CStr(RowOffSet2 + 2)
Selection.AutoFill Destination:=Rows(FillRows), Type:=xlFillDefault

Any thoughts would be appreciated.

Thanks,
Alan.

 

[Damon Ostrander]

Hi Alan,

I believe the following should accomplish the same thing more efficiently:

With Rows(RowOffSet2-1)
.AutoFill Destination:=Range(.Cells,Rows(RowOffSet2+2)), Type:=xlFillDefault
End With

 

[Tinhare]

yes, oh yes, much better. Thanks for that.