Public Sub ProcessCells()
Startcolumn = "F"
Endcolumn = "N"
Currrow = ActiveCell.Row
Set Currrange = Range(Startcolumn & Currrow & ":" & Endcolumn & Currrow)
For Each cell In Currrange
MsgBox cell.Address
Next
End Sub
Replace the MsgBox line with the code you want to use to process each cell.