My current Code i am using works good for what I am doing now I would like to highlight the entire row with a Range of (r, 1) to r, 24)

Sub comment_void()
' only additional comment, won't delete the row
Dim r As Long, t As Integer
Dim c As Integer
c = colum(4)
r = ActiveCell.Row
t = ActiveCell.Column
If Cells(r, 2) = "" Then
Exit Sub
End If
Application.ScreenUpdating = False
If c > 0 Then
Cells(r, 21).Value = "Void File: " & Cells(r, c).Value
Else
Cells(r, 21).Value = "Void"
End If
Cells(r, 1).Value = "Noise Test"
Cells(r, 2).Value = "Noise Test"
Cells(r, 9).Value = ""
Cells(r, 11).Value = ""
Cells(r, 12).Value = ""
Cells(r, 13).Value = ""
Cells(r, 14).Value = ""
Cells(r, 15).Value = ""
Cells(r, 19).Value = ""
Cells(r, 20).Value = ""
Cells(r, 1).Font.Bold = True
Cells(r, 2).Font.Bold = True
Cells(r, 21).Font.Bold = True

Cells(r, t).Select
Application.ScreenUpdating = True

End Sub