Need Macros to Fill color and Borders for Used Cells

[madhuchelliah]

Hey Guys, I need a macro to fill color and border for used cells. In my sheet the used range will be start from row 2 and column C to I. Which means the color and border always will be in C to I column. The macro should not do any changes in 1st row. Thank you.

 

[mumps]

Try:

Sub InsertBorders()
    Dim LastRow As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Range("C2:I" & LastRow).Borders.LineStyle = xlContinuous
End Sub

 

[mumps]

Sorry, I forgot about the fill color. Change the '6' to change the fill color.

Sub InsertBorders()
    Dim LastRow As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    With Range("C2:I" & LastRow)
        .Borders.LineStyle = xlContinuous
        .Interior.ColorIndex = 6
    End With
End Sub