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

Range("B9:B" & Cells(Rows.Count, 2).End(xlUp).Row).Copy Sheets("Дист2").Cells(2, 1)

Sub Переноc()
 
Dim ShGeneral As Worksheet
Dim ListObj As ListObject
Dim ListRow As ListRow
 
Set ShGeneral = ThisWorkbook.Worksheets("Sheet1")
Set ListObj = ShGeneral.ListObjects("tb_данные")
 
Set ListRow = ListObj.ListRows.Add
'
ListRow.Range(2) = Range("D9")
 
End Sub

Sub Переноc1()
    Dim ShGeneral As Worksheet
    Set ShGeneral = ThisWorkbook.Worksheets("Sheet1")
    Worksheets("Sheet2").Range("D9:D" & Cells(Rows.Count, 2).End(xlDown).Row).Copy ShGeneral.Cells(2, 2)
End Sub

Sub MMM()
With Sheets("Sheet2")
    LR = .Cells(Rows.Count, 4).End(xlUp).Row
    ARR = Range(.Cells(9, 4), .Cells(LR, 4)).Value
End With
With Sheets("Sheet1")
 .Cells(2, 2).Resize(UBound(ARR)).Value = ARR
End With
End Sub

Sub MMM()
With Sheets("Sheet2")
    LR1 = .Cells(Rows.Count, 4).End(xlUp).Row
    ARR = Range(.Cells(9, 4), .Cells(LR1, 4)).Value
End With
With Sheets("Sheet1")
 LR2 = .Cells(Rows.Count, 2).End(xlUp).Row + 1
 .Cells(LR2, 2).Resize(UBound(ARR)).Value = ARR
End With
End Sub

Sub MMM()
With Sheets("Sheet2")
    LR1 = .Cells(Rows.Count, 4).End(xlUp).Row
    ARR = Range(.Cells(9, 4), .Cells(LR1, 4)).Value
End With
With Sheets("Sheet1")
 LR2 = .Cells(Rows.Count, 2).End(xlUp).Row + 1
 .Cells(LR2, 2).Resize(UBound(ARR)).Value = ARR
End With
 
Call ABCD '     ABCD- название макроса "другого"  кода
End Sub

Sub Ìàêðîñ1()
Dim ShGeneral As Worksheet
Dim ListObj As ListObject
Dim ListRow As ListRow
 
Set ShGeneral = ThisWorkbook.Worksheets("Лист1")
Set ListObj = ShGeneral.ListObjects("tb_Данные")
 
Set ListRow = ListObj.ListRows.Add
'
ListRow.Range(2).Value = "das"
 
End Sub

'   nothing to do if the number of changed cells doesn't equal to one
    If Target.Cells.Count > 1 Then
        Exit Sub
    End If
        
'   if the good name has changed, let's set date, quantity and price
    If Not Intersect(Target, Range("B3:B65530")) Is Nothing Then
    '   setting date column
    With Target
        If .Count > 1 Then Exit Sub
        If Intersect(.Cells, Columns(2)) Is Nothing Then Exit Sub
        If Not IsDate(Cells(.Row, 1)) Then Cells(.Row, 1).Value = Date
        If IsEmpty(.Cells) Then Cells(.Row, 1).ClearContents
    End With