Private Sub CommandButton1_Click()
' сохранение данных
  If CbBox_avto = "" Then Exit Sub
  With Sheets("настройки")
    .Cells(1, 2) = CbBox_mes.Value 
    .Cells(CbBox_avto.ListIndex + 3, 2) = txtBox_km
    .Cells(CbBox_avto.ListIndex + 3, 3) = txtBox_top
  End With
End Sub

Sub INFO() 
     
    Dim listobj As ListObject
    Dim rgCell As Range
    Dim i As Long
     
    Set listobj = ThisWorkbook.Worksheets("список").ListObjects("TablVodii")
     
    For i = 15 To 20
        For Each rgCell In listobj.ListColumns("Столбец1").DataBodyRange
            If rgCell > 0 Then
                 Cells(i, 1) = rgCell.Cells(1, -1)
                 i = i + 1
            End If
        Next rgCell
    Next i
End Sub