Kopier celle i ark1 til første ledige celle i ark2

Inden oprydning skal celle M4 kopieres til føeste ledige celle, kollonne B i ark2
Men koden jeg har prøvet at skrue sammen fungerer ikke ordentlig.

Application.ScreenUpdating = False

Dim C As Variant

Range("M4").Copy

Worksheets("Statistik").Activate
C = 2
Do Until Worksheets("Statistik").Cells(C, 2) = ""
C = C + 1
Loop
Cells(C, 2, Target).Select
Exit Sub

  Dim Resultat As Integer
  Resultat = MsgBox("Vil du slette dagens handler" & vbNewLine & "Sletning kan ikke fortrydes. ", vbOKCancel, "Ryd ark?")
  If Resultat = 1 Then
  End If

    Range("C14:C188,F14:F188,H14:H188,D9:D12,O25:O38").ClearContents
    Range("C12").Activate

Application.ScreenUpdating = True