Another thing to note is the fact that a recorded macro will show you some defaults like 
.Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .TintAndShade = 0
    .PatternTintAndShade = 0
which don't need to be programmed evertyime. What I have provided to you could just as well be done with case statements too but I went with the trusty If ElseIf End If statement.