Копирование данных с одного листа в таблицу на другом листе

Sub MMM()
With Sheets("COPYTODATA")
    LR1 = .Cells(Rows.Count, 4).End(xlUp).Row
    If LR1 < 9 Then
        MsgBox "No Data"
        Exit Sub
    End If
    
    If LR1 = 9 Then
        ARR = .Cells(9, 4).Value
        Flag = True
    Else
        ARR = Range(.Cells(9, 4), .Cells(LR1, 4)).Value
    End If
    
    
    ARR = Range(.Cells(9, 4), .Cells(LR1, 4)).Value
End With
 
 
With Sheets("Data")
If .Cells(2, 2).Value = 0 Then LR2 = 2 Else LR2 = .Cells(Rows.Count, 2).End(xlUp).Row + 1
 If Flag = True Then
 .Cells(LR2, 1).Value = Date
 .Cells(LR2, 2).Value = ARR
 Else
 .Cells(LR2, 1).Resize(UBound(ARR)).Value = Date
 .Cells(LR2, 2).Resize(UBound(ARR)).Value = ARR
 End If
End With
End Sub

' в описание переменных поставьте 
Dim M As Integer
' после строки
  Lr2 = .Range.Rows.Count
' поставьте такую строку
  M = IIf(Lr2 = 2 And .Range(2, 2) = "", 1, 0)
' после строки
  If K = 1 Then
' замените строку следующей
    If M = 0 Then .ListRows.Add
' аналогичную замену сделайте после строки
    For I = 1 To K
' такой же строкой
      If M = 0 Then .ListRows.Add

    .Range(Lr2 + 1 - M, 2) = Ar
' и в следующем аналогичном месте
      .Range(Lr2 + I - M, 2).Value = Arr(I)

With Tabl
  Lr2 = .Range.Rows.Count
  M = IIf(Lr2 = 2 And .Range(2, 2) = "", 1, 0)
  If K = 1 Then
    If M = 0 Then .ListRows.Add
    .Range(Lr2 + 1 - M, 2) = Ar
  Else
    For I = 1 To K
      If M = 0 Then .ListRows.Add
      .Range(Lr2 + I - M, 2).Value = Arr(I)
    Next
  End If
End With

With Tabl
  Lr2 = .Range.Rows.Count
  If Lr2 = 2 And .Range(2, 2) = "" Then Lr2 = Lr2 - 1
  If K = 1 Then
    .Range(Lr2 + 1, 2) = Ar
  Else
    For I = 1 To K
      .Range(Lr2 + I, 2).Value = Arr(I)
    Next
  End If
End With