Sub movelocation()
RowCount = 1
Do While Cells(RowCount, "A").Value <> ""
If Cells(RowCount, "A").Value = "Location:" Then
Location = Trim(Cells(RowCount, "B").Value)
Else
If Location <> "" Then
Cells(RowCount, "E").Value = Location
End If
End If
RowCount = RowCount + 1
Loop
End Sub
> I tried to look around but it seems like I can't find the right answer
> for my question.
[quoted text clipped - 40 lines]
>
> PLEASE HELP.