vba clear contents and any format in specific columns

Dim cols as Variant
Dim i as Long
Dim r as String

cols = Array("D", "E", "H", "V")

For c = LBound(cols) to UBound(cols)

Worksheets("observations").Range(c & Rows.Count).End(xlUp).Clear

Next c

Perhaps...Using buran's code....

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

Edited...Or

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)
       .Range(cols(c) & Rows.Count).End(xlUp).ClearContents
    Next c
End With
End Sub

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

of course, there should be no brackets:

Worksheets("observations").Range(c & Rows.Count).End(xlUp).Clear

sorry for he mistake and thanks for rep

@ buran
Perhaps
.Range(cols(c) & Rows.Count).End(xlUp).ClearContents

Dim i as Long ' c as long

Yes, right. I have to stop for a moment and go for a coffee break :-)