Tey this:-
Dim rowNum
Dim colNum
rowNum = Range("a1").End(xlDown).Row
colNum = Range("a1").End(xlDown).End(xlToRight).Column

With Range(Cells(rowNum, 1), Cells(rowNum, colNum))
.Font.Bold = True
.Interior.ColorIndex = 15
End With