Button does not generate proper colors?

[cloudforgiven]

Awesome it works, I am sorry for giving you more work but I also have a button that generates rows that is having the same issue of generating the rows but not the proper cell colors, can you take a look at it? here is the code:

Dim varUserInput As Variant
 
 varUserInput = InputBox("Enter The Last Row Number In The Table:", _
  "What Row?")
  
 If varUserInput = "" Then Exit Sub
 
    Dim RowNum
    
    RowNum = varUserInput
    Rows(RowNum & ":" & RowNum).Insert shift:=xlDown
    Rows(RowNum - 1 & ":" & RowNum - 1).Copy Range("A" & RowNum)
    Range(RowNum & ":" & RowNum).ClearContents

there are rows but no color?