VBA Code to clear contents Not formulas on spreadsheet

[Malcolm torishi]

Hi can anyone help please, I have the following code that clear the contents as well as the formulas on my spreadsheet. Can any tell me please how not to clear the formulas . Thanks
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Modified 6/18/2019 3:09 PM EDT
If Target.Column = 28 And Target.Row > 1 Then
Cancel = True
Dim Lastrow As Long
Lastrow = Sheets(3).Cells(Rows.Count, "A").End(xlUp).Row + 1
Target.Offset(, -25).Resize(, 1).Copy Sheets(3).Cells(Lastrow, 1)
Target.Offset(, -25).Resize(, 25).ClearContents
End If

If Target.Column = 1 Then
Cancel = True
Target.Font.Name = "Wingdings"
If Target.Value = "" Then
Target.Value = "ü"
Else
Target.Value = ""
End If
End If

End Sub

 

[Fluff]

Try

Target.Offset(, -25).Resize(, 25)[COLOR=#ff0000].SpecialCells(xlConstants)[/COLOR].ClearContents

 

[Malcolm torishi]

I will give it a go thank you so mych

 

[Fluff]

You're welcome

 

[Malcolm torishi]

On other question if I may, this code deletes the contents from say column AA back 25 columns, if I want to delete say 3 other columns forward on say column AG, AH & AI is that something that can be added in the code above. Thank
you again

 

[Fluff]

Just add this below that line

   Range("AG" & Target.Row).Resize(, 3).ClearContents

 

[Malcolm torishi]

Thank you , I don’t know how you guys do it but you all are amazing

 

[Fluff]

You're welcome & thanks for the feedback