Autofill cells below

Dear people,

My macro is almost finished , but I need to autofill the cells below, till column next to it is empty. Is there somebody who knows how to do this. Below is my macro, I placed dots were I need the missing codes. (By the way I use VBA 6.3)
Thank you in advance
Mahsun

[code]Sub deelC2()

Range("A1").Select
Cells.Find(What:= _
"#hort" _
, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:= _
xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) _
.Activate
Selection.Offset(4, 6) = "=INDEX(R4C44:R6172C48,MATCH(RC[-1],R4C4:R6172C4,0),5)"
ActiveCell.Select
................


End Sub [/code]
Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories