Microsoft Office Forums - View Single Post - Find last non empty cell (moving horizontally), then move one cell to the right

klutch · 07-05-2018, 09:09 AM

Code:

 With wDoc
Dim ocolumn As Column
Dim ocell As Cell

For Each ocell In wDoc.Tables(8).Columns(3)
If Len(ocell.Range) = 2 Then
 ocell.Select
 Selection.PasteSpecial
 End If
 Next ocell
 End With

I am looking for something like this, but this does not have the right object property