VBA - filling in blanks in Table column

[JamesonMH]

Hi all,

I have a 6 column running Table (called "CS" - see table below).

Each month my macro takes current data from a separate 5 column table and pastes it to the bottom of the CS table.

After this procedure, there is always the expected blank 1st column in the CS (which is the "File month" header). I need those blank cells in the "File month" column of CS to populate with the value in cell J6 of the current worksheet (which this time around = "April").

[TABLE="width: 500"]
<tbody>[TR]
[TD]File month[/TD]
[TD]DOS[/TD]
[TD]Name[/TD]
[TD]Provider[/TD]
[TD]Amount[/TD]
[TD]Y/N[/TD]
[/TR]
[TR]
[TD]March[/TD]
[TD]xyz[/TD]
[TD]xyz[/TD]
[TD]xyz[/TD]
[TD]xyz[/TD]
[TD]xyz[/TD]
[/TR]
[TR]
[TD]March[/TD]
[TD]xyz[/TD]
[TD]xyz[/TD]
[TD]xyz[/TD]
[TD]xyz[/TD]
[TD]xyz[/TD]
[/TR]
[TR]
[TD]March[/TD]
[TD]xyz[/TD]
[TD]xyz[/TD]
[TD]xyz[/TD]
[TD]xyz[/TD]
[TD]xyz[/TD]
[/TR]
[TR]
[TD]March[/TD]
[TD]xyz[/TD]
[TD]xyz[/TD]
[TD]xyz[/TD]
[TD]xyz[/TD]
[TD]xyz[/TD]
[/TR]
[TR]
[TD]Should say April[/TD]
[TD]abc[/TD]
[TD]abc[/TD]
[TD]abc[/TD]
[TD]abc[/TD]
[TD]abc[/TD]
[/TR]
[TR]
[TD]Should say April[/TD]
[TD]abc[/TD]
[TD]abc[/TD]
[TD]abc[/TD]
[TD]abc[/TD]
[TD]abc[/TD]
[/TR]
[TR]
[TD]Should say April[/TD]
[TD]abc[/TD]
[TD]abc[/TD]
[TD]abc[/TD]
[TD]abc[/TD]
[TD]abc[/TD]
[/TR]
</tbody>[/TABLE]

I tried variations of the following but no luck. Thanks for your time!

If IsEmpty(Range("CS[[#Headers],[File month]]").Value) = True Then
ActiveWorkbook.Worksheets("Helper Tbls").Range ("J6")
End If

James