Alimenter un tableau sans effacer les lignes du dessus ?

Sub Transfert()
Dim DebTab1 As Range, DebTab2 As Range
Set DebTab1 = Feuil1.[A1] '1ère cellule de titres, à adapter
Set DebTab2 = Feuil1.[A4] 'si même feuille, 1ère cellule de titres, à adapter
If DebTab1(2) = "" Then
  MsgBox "Entrez le nom !", 48
Else
  With DebTab1.CurrentRegion.Rows(2)
    .Copy DebTab2(DebTab2.CurrentRegion.Rows.Count + 1)
    .ClearContents
  End With
End If
DebTab1(2).Select
End Sub

Private Sub Ajouter_Click()
Dim source As Range, deb As Range
Set source = [B12:F12] 'plage à copier
Set deb = [C19] '1ère cellule de titres
If source(1) = "" Then
  MsgBox "Entrez la mission !", 48
Else
  With deb(deb.CurrentRegion.Rows.Count + 1)
    .Resize(, source.Count).Value = source.Value
    .Offset(, -1) = .Row - deb.Row 'numéro
    .Offset(, -1).Resize(, 7).Borders.Weight = xlThin
    .Offset(, 2).Borders(xlEdgeRight).LineStyle = xlNone
  End With
End If
source.ClearContents
source(1).Select
ThisWorkbook.Save 'enregistrement
End Sub

Private Sub RAZ_Click()
Dim deb As Range
Set deb = [C19] '1ère cellule de titres
With deb(2, 0).Resize(Rows.Count - deb.Row, 7)
  .ClearContents
  .Borders.LineStyle = xlNone
End With
End Sub