Fill range in first empty row

[Ironman]

Hi

I have got so far with the below code, which fills Column A in the first empty row

Sub FillEndRowBlue()

If ActiveSheet.Name = "Training Log" Then
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
With Selection
.Interior.Color = RGB(197, 217, 241)

End With
Else
MsgBox "Cell fill does not work in this sheet", vbInformation, "Information"
End If
End Sub

I'm trying to fill columns A:F and I:J in the first empty row and I'm stuck!

Help would be much appreciated.

Many thanks!

 

[Ironman]

Ah, thank you so much for your trouble Peter.

Best regards

Paul

 

[Peter_SSs]

No problem.