vba clear contents and any format in specific columns

Pleasure glad I could help...thanks for rep...

an insight how to remove the cell borders linestyle from the last cell with the above code

Option Explicit
Sub JEAN1972()
Dim cols As Variant
Dim c As Long
cols = Array("D", "E", "H", "V")
With Sheets("observations")
    For c = LBound(cols) To UBound(cols)
        With .Range(cols(c) & Rows.Count).End(xlUp)
            .ClearContents
            .Borders.LineStyle = xlLineStyleNone
        End With
    Next c
End With
End Sub