Если можно, то было бы неплохо на моем файле экспериментировать.
По сути просто нужно вставить в код Авто фильтр с условием. У меня не выходит.
Sub esendtable()

Dim outlook As Object
Dim newEmail As Object
Dim xInspect As Object
Dim pageEditor As Object

Set outlook = CreateObject("Outlook.Application")
Set newEmail = outlook.CreateItem(0)

With newEmail
   .To = Sheet1.Range("A2").Text
   .CC = ""
   .BCC = ""
   .Subject = "Data"
   .Body = "Please find the requested information" & vbCrLf & "Best Regards"
   .display
   
   Set xInspect = newEmail.GetInspector
   Set pageEditor = xInspect.WordEditor
   
   Sheet1.Range("B3").AutoFilter Field:=4, Criteria1:="3"

   Sheet1.Range("B3:" & "G" & "7").Copy
   'Sheet1.Range("B3:" & Cells(100, 7).Address).Copy
   
   pageEditor.Application.Selection.PasteAndFormat (wdFormatPlainText)
   .display
   '.Send
   Set pageEditor = Nothing
   Set xInspect = Nothing
End With

Set newEmail = Nothing
Set outlook = Nothing

End Sub


ПОМОГИТЕ ВПИСАТЬ ПРАВИЛЬНО ВМЕСТО ЦИФРЫ 7 (!!! Выделено в коде красным) номер последней заполненной строки, которая видна после фильтрации? ВСЕ ОСТАЛЬНОЕ РАБОТАЕТ!

В том-то и дело, что сам по себе макрос с фильтацией работает. А вот его еще надо вставить в условие , при котором будет происходить не только фильтрация, но и копирование отфильтрованной таблицы и отправка ее по e-mail.
Не помог Ваш код.

Добрый день, прошу помощи в макросе.
В моем файле идет копирование выделенного диапазона и отправка электронного письма с выделенным диапазоном на указанный адрес.
В данном случае .
Sheet1.Range("B3:" & Cells(6, 7).Address).Copy с четким адресом.

Как можно было бы описать в макросе, что мне нужно послать диапазон таблице, в котором будет применен фильтр по столбцу 3  с условием Значение в столбце 3 Таблицы = 3 ( или больше 3).
Как альтернатива, показать только те строки таблицы, в которых значение в Столбце 3 =3.

Благодарю за помощь.