Sub тык1()
обана (1)
End Sub
Sub тык2()
обана (2)
End Sub
Sub тык3()
обана (3)
End Sub
Sub обана(тык As Integer)
With ActiveSheet.ListObjects("отчет")
lr = .Range.Rows.Count
mr = 1
If .Range(lr - 1, 1 + тык).Value <> "" Then
nr = .TotalsRowRange.Row
.ListRows.Add AlwaysInsert:=True
.Range(.Range.Rows.Count - 1, 1 + тык).Value = ActiveSheet.Cells(3, 1 + тык).Value
Else
For f = lr - 1 To 1 Step -1
If .Range(f, 1 + тык).Value <> "" Then nr = f: Exit For
Next f
If nr = "" Then nr = 1
.Range(nr + 1, 1 + тык).Value = ActiveSheet.Cells(3, 1 + тык).Value
End If
End With
End Sub

Option Explicit

Public Sub btn01()

    Добавить_в_Столбец _
            ActiveSheet, _
            7, _
            Cells(3, 2).Value

End Sub

Public Sub btn02()

    Добавить_в_Столбец _
            ActiveSheet, _
            8, _
            Cells(3, 3).Value

End Sub

Public Sub btn03()

    Добавить_в_Столбец _
            ActiveSheet, _
            9, _
            Cells(3, 4).Value

End Sub

Public Function Добавить_в_Столбец(ws As Worksheet, _
        ByVal iCol As Long, _
        ByVal var As Variant)

    ws.Cells(Столбец_Ячейка_Свободная(ws, iCol).Row, iCol).Value = var

End Function

Public Function Столбец_Ячейка_Свободная(ByVal ws As Worksheet, _
        ByVal iCol As Long) _
        As Range

    Set Столбец_Ячейка_Свободная = Столбец_Ячейка_Последняя( _
            ws, iCol).Offset(1, 0)

End Function

Public Function Столбец_Ячейка_Последняя(ByVal ws As Worksheet, _
        ByVal iCol As Long) _
        As Range

    With ws.Columns(iCol)

        Set Столбец_Ячейка_Последняя = .Cells(.Rows.Count, 1).End(xlUp)

    End With

End Function