Simplify code INDEX ROWS COUNTA

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)

Thanks I followed your instructions now , can you help? thanks in advance!

Thanks.

Your formulae appear to shift across consistently, so this should work:

With Range("M6:P355")
    .Formula = "=IF(B6<>"""",B6,INDEX(H$6:H$355,ROWS(M$6:M6)-COUNTA(B$6:B$355)))&"""""
    .Value = .Value
End With

Range("O6:O355").NumberFormat = "mmm-yy"
Range("Q6:Q355").NumberFormat = "mmm-yy"

HI Stephen

thanks for your answer

i think your code doesn't take into account the following

With Range("Q6:Q355")
    .Formula = "=IF(F6<>"""",F6,INDEX(L$6:L$355,ROWS(Q$6:Q6)-COUNTA(F$6:F$355)))&"""""
'    .Value = .Value
    .Copy
    .PasteSpecial xlPasteValues
End With

Missed that off the end of your original post. Just change the first line to

With Range("M6:Q355")

many thanks, it is fantastic! works well

I'm trying to add IFERROR To the formula but it doesn't work ! can you add IFERROR please? thanks in advance .Antonio