VBA copie en fonction cellules vides

Sub copie()
'ATTTENTION: il faut impérativement que les 2 tableaux soit nommés "Critic" et "High"
Dim DerLigCritic As Long, DerLigHigh As Long, LigCopy As Long
'copie dans premier tableau
DerLigCritic = Range("Critic")(Range("Critic").Count).Row
If Range("Critic")(1).End(xlDown).Row < DerLigCritic - 1 Then
  Range("A" & Range("Critic")(1).End(xlDown).Row + 1 & ":E" & Range("Critic")(1).End(xlDown).Row + 1).Value = Range("A4:E4").Value
Else
  Rows(DerLigCritic).Insert
  Range("A" & DerLigCritic & ":E" & DerLigCritic).Value = Range("A4:E4").Value
End If
'copie dans second tableau
DerLigHigh = Range("High")(Range("High").Count).Row
LigCopy = Range("High").Offset(-1).Row
If Range("High")(1).End(xlDown).Row < DerLigHigh - 1 Then
  Range("A" & Range("High")(1).End(xlDown).Row + 1 & ":E" & Range("High")(1).End(xlDown).Row + 1).Value = Range("A" & LigCopy & ":E" & LigCopy).Value
Else
  Rows(DerLigHigh).Insert
  Range("A" & DerLigHigh & ":E" & DerLigHigh).Value = Range("A" & LigCopy & ":E" & LigCopy).Value
End If
End Sub