I have the following code which deletes all entries that are one year old to
date.

Private Sub deleteit()
Dim LastRow As Long
Dim X
LastRow = Range("A20000").End(xlUp).Row

For X = LastRow To 1 Step -1
If Cells(X, 1).Value < Date - 365 Then
Range("A" & X & ":P" & X).ClearContents
End If
Next
End Sub

This code works well, but what I need is only to clear columns A to F and H.
I need it to leave column G alone because it has formulas.

--
AOP

One way:
Range("A" & X & ":F" & X & ",H" & X).ClearContents

AOP wrote:
I have the following code which deletes all entries that are one year old to
date.

Private Sub deleteit()
Dim LastRow As Long
Dim X
LastRow = Range("A20000").End(xlUp).Row

For X = LastRow To 1 Step -1
If Cells(X, 1).Value < Date - 365 Then
Range("A" & X & ":P" & X).ClearContents
End If
Next
End Sub

This code works well, but what I need is only to clear columns A to F and H.
I need it to leave column G alone because it has formulas.

--
AOP

Thanks that works well
--
AOP


"JW" wrote:

One way:
Range("A" & X & ":F" & X & ",H" & X).ClearContents

AOP wrote:
I have the following code which deletes all entries that are one year old to
date.

Private Sub deleteit()
Dim LastRow As Long
Dim X
LastRow = Range("A20000").End(xlUp).Row

For X = LastRow To 1 Step -1
If Cells(X, 1).Value < Date - 365 Then
Range("A" & X & ":P" & X).ClearContents
End If
Next
End Sub

This code works well, but what I need is only to clear columns A to F and H.
I need it to leave column G alone because it has formulas.

--
AOP