clear only some content from row

Hi there , I have the code below that I use to create a second set of rows (3) when i click the command button. Everything works fine but the code ClearsContent in .Rows(lr + 3) totally. I only want columns "A", "F", "M", "Q", "R", "S", "T" cleared when it copies . Columns values "E", "U", "V", "P", "W", "X", "Y", "Z" should not be cleared. Any ideas

Sub Create_New_CA()
Dim ColArr, i As Long, nr As Long, lr As Long
ColArr = Array("A", "F", "M", "Q", "R", "S", "T", "E", "U", "V", "P", "W", "X", "Y", "Z")
lr = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
With Sheets("Findings_Summary_Sheet")
    nr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
    .Range("E" & nr).NumberFormat = "dd/mm/yyyy"
    For i = 1 To 15
        .Cells(nr, i) = ActiveSheet.Cells(lr, ColArr(i - 1))
    Next i
End With
With ActiveSheet
    .Rows(lr - 2).Resize(3).Copy .Rows(lr + 1)
    .Rows(lr + 3).ClearContents
    
End With
End Sub

Hi TMS, also get a debug on the second line

 .Range("F" & lr + 3).ClearContents

the first one clears tough

.Range("A" & lr + 3).ClearContents

Hi JLGWHIZ i get debug error on

.Range("A" & r & ", F" & r & ", M" & r & ", Q" & r & ", R" & r & ", S" & r & ", T" & r).ClearContents

Just one last question, in Column A I have a Phot Pic, why would that not delete as well

Hi TMS, also get a debug on the second line

 .Range("F" & lr + 3).ClearContents

the first one clears tough

.Range("A" & lr + 3).ClearContents

to remove pic in column A try

Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.TopLeftCell.Column = 1 Then shp.Delete
Next