[VBA]

rFoundResult.Offset(, -6).Range("A1:F1").ClearContents
rFoundResult.Offset(, -6).Range("AD1").ClearContents

[/VBA]