Sub Test()
    Dim objList As ListObject
        
    If ActiveSheet.ListObjects.Count = 0 Then Exit Sub
    With ActiveSheet
        For Each objList In .ListObjects
            If Not Intersect(ActiveCell, objList.Range) Is Nothing Then
                MsgBox "Курсор стоит в таблице:" & vbLf & "Имя: " & objList.Name & vbLf & "Индекс: " & findIndexOfListObject(objList.Name), vbInformation, ""
                Exit Sub
            End If
        Next
    End With
    MsgBox "Курсор не стоит внутри таблицы!", vbExclamation, "Внимание"
End Sub

Private Function findIndexOfListObject(ByVal sName As String) As Long
    Dim i As Long
    With ActiveSheet
        For i = 1 To .ListObjects.Count
            If .ListObjects(i).Name = sName Then
                findIndexOfListObject = i
                Exit Function
            End If
        Next
    End With
End Function

Sub FillRange()
    Dim LastRow As Long
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        .Range("A2:A" & LastRow).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
        .Range("B2:B" & LastRow).SpecialCells(xlCellTypeBlanks).Value = "A"
    End With
End Sub

    With IzbrSvod
        'находим номер последней строки в столбце А
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 
        'первое - указываем диапазон, т.е. Range
        'второе - указываем LastRow во втором Cells
        .Range(.Cells(2, ColEndIzbr + 1), .Cells(LastRow, ColEndIzbr + 1)).Value = WorksheetFunction.VLookup(IzbrSvod.Cells(2, ColEndIzbr - 3), SpravSubj.Range("A:F"), 4, False)
    End With

Sub Test()
    Dim dtDate As Date, dSales As Double, dExpenses As Double, dProfit As Double
    Dim Rng As Range, LO As ListObject

    With Worksheets("Sales")
        dtDate = CDate(.Range("B1"))
        dSales = .Range("E3")
        dExpenses = .Range("F3")
        dProfit = .Range("G3")
    End With
    
    With Worksheets("Sales Data")
        Set LO = .ListObjects(1)
        Set Rng = LO.HeaderRowRange.Find(Format$(dtDate, "dd\/MM\/yy"), , xlFormulas, xlWhole)
        If Not Rng Is Nothing Then
            With LO.DataBodyRange
                .Cells(1, Rng.Column).Value = dSales
                .Cells(2, Rng.Column).Value = dExpenses
                .Cells(3, Rng.Column).Value = dProfit
            End With
        End If
    End With
End Sub