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]