Sub Скопировать()

    Dim shSrc As Worksheet, tblRes As ListObject
    
    Set shSrc = ActiveSheet
    Set tblRes = Worksheets("Журнал учета").ListObjects(1)
    
    If tblRes.ListRows.Count = 0 Then
        tblRes.ListRows.Add
    End If
    
    If tblRes.Range.Range("A2").Value <> "" Then
        tblRes.ListRows.Add
    End If
    
    With tblRes.ListRows(tblRes.ListRows.Count).Range
        .Range("A1").Value = shSrc.Range("A2").Value
        .Range("B1").Value = shSrc.Range("B2").Value
        .Range("C1").Value = shSrc.Range("C8").Value
        .Range("D1").Value = shSrc.Range("B9").Value
        .Range("E1").Value = shSrc.Range("B11").Value
    End With
    
    MsgBox "Готово!", vbInformation
    
End Sub