Visual Basic - Ocultar celdas en el código

Buenos Días,
Para el siguiente código de visual basic no se como ocultar las filas de la hoja ("Cartas"), y que solo se vea las que están filtradas, y estas sean las que se envíen al correo.

Sub Enviarcorreo()

Dim wsDatos As Worksheet
Dim wsCorreos As Worksheet

Set wsDatos = ThisWorkbook.Sheets("Cartas")
Set wsCorreos = ThisWorkbook.Sheets("Alertas")
ActiveSheet.Range("A:H").Select
lastRow = wsCorreos.Cells(wsCorreos.Rows.Count, "A").End(xlUp).Row
For i = 2 To lastRow
Especialidad = wsCorreos.Cells(i, 1).Value
destinatario = wsCorreos.Cells(i, 3).Value
wsDatos.ListObjects("TablaDatos").Range.AutoFilter field:=1, Criteria1:=Especialidad
wsDatos.ListObjects("TablaDatos").Range.AutoFilter field:=8, Criteria1:="D. Vencida"
ActiveWorkbook.EnvelopeVisible = True
'Llamamos al envío...
With ActiveSheet.MailEnvelope
.Item.To = destinatario
.Item.CC = "[email protected]"
.Item.Subject = "Cartas vencidas"
.Introduction = "Buenas tardes, adjuntamos tabla con la fecha de vencimiento de las cartas para generar gestión y actualización de las mismas:"
.Item.Send
End With
Next

End Sub