Experimente esse codigo

Sub Apaga_dados()

Dim resposta
resposta = MsgBox("Deseja realmente deletar tudo?", vbQuestion + vbOKCancel, "Confirmação")
If resposta = vbCancel Then Exit Sub
Range("A7").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("A7").Select

End Sub

Caraca, eatou no celular aqui e sem Excel para testar, mas tá estranho uma coisa. Não sei dizer se "não seria correto", se "tanto faz" ou se está errado mesmo. Mas tenta assim:

Sub Apaga_dados()
'
' Apaga_Registros
'
Dim resposta
resposta = MsgBox("Deseja realmente deletar tudo?", vbQuestion + vbOKCancel, "Confirmação")
If resposta = vbCancel Then Exit Sub

Range("A7:F" & cells(rows.count, 6).End(xlup).Row).delete
Range("a7").Select

Qualquer coisa da o grito.
Abraço