Public Sub Colour_Entire_Row()
Application.ScreenUpdating = False
uncoloured = RGB(255, 255, 255) ' this is the code for an uncoloured cell
ThisWorkbook.Sheets("Sheet2").Activate ' change this to whatever sheet you want this code to act on
ActiveSheet.UsedRange.Select
Number_of_Rows = Selection.Rows.Count
Number_of_Columns = Selection.Columns.Count
For i = 1 To Number_of_Rows
colour_format = ActiveCell.Offset(i - 1, 0).Interior.Color
If colour_format <> uncoloured Then
Range(ActiveCell.Offset(i - 1, 1), ActiveCell.Offset(i - 1, Number_of_Columns - 1)).Interior.Color = colour_format
End If
Next
Application.ScreenUpdating = True
End Sub