VBA Dynamic Start Rows

[hobbiton73]

Hi @snb you kindly replied to my post with a suggestion for a change in my code.

Could you please have a look at the line you suggested because when I've tried to use this, it appears as if there is something missing from the end because VB editor highlights the line in red.

Could you also tell me please how the following section of code needs to be changed as shown in my original post as this is looking for the 'coldates' variable replaced by your line of code.

On Error Resume Next
                    m = ColDates(Format(PDate, "mmm yy")) 
                   Err = 0  .Offset(j, m) = .Offset(j, m) + AFTE 
                    On Error Goto 0

Many thanks and kind regards

Chris