Vba to name a active cells in a column

[Revathi Kannan]

Hi all,

I have the following code which will filter the columns as per my requirement but after filtering the columns i need to name the active cells as "Ship" in the column "Remarks" based on the used range column A. Please assist.

<code style="margin: 0px; padding: 0px; font-style: inherit; font-weight: inherit; line-height: 12px;">Selection.AutoFilter

Cells.Find(What:="direction", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.AutoFilter Field:=6, Criteria1:="E"

Cells.Find(What:="Instructions Rec (Act.)", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.AutoFilter Field:=27, Criteria1:="<>"</code>