In desperate need of assistance
 

I am working on a macro. What i have so far is below. From here, I want to
enter a formula to the last row with data in this column. Then, I want to
copy the calculations back to where I cut the original cells. This macro will
run on several different files with assorted lengths. The starting and
stopping points will never be the same twice. Any help would be greatly
appreciated.

Sheets("BOMSized").Select
Cells.Find(What:="RIM", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.End(xlToRight).Select
ActiveCell.Offset(0, 1).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Select
--
A Waller