Помогите, пожалуйста, с кодом

[kentd]

как запись внести в умную таблицу, а получается вносится за таблицу?

Dim sh As Worksheet
Dim last_Row As ListRow
Dim listobj As Object

Set sh = ThisWorkbook.Sheets("Лист2")
'Set listobj = sh.ListObjects("baza_tb")



last_Row = Application.WorksheetFunction.Count A(sh.Range("A:A")) 'listobj.ListRows.Add