cut and paste x spaces below where x=value(b7)

[kingdomb]

I have a spread sheet with the text "Medics" somewhere in the A column but not always in the same place. I have a number in cell b7. I want to find the word "Medic", select that cell, the cell in the B column next to it and everything below these two cells (no farther than 99) and move them down the number of rows referenced in b7. So pretend I have the '4' in b7, and the word "medic" is in A16. I want to Cut A16:B99 and paste it 4 rows below into A20. thanks

 

[jerry12302]

Try this code...

Sub movestuff()
x = Application.WorksheetFunction.Match("medic", Range("a:a"), 0)
y = Range("b7").Value
Range("a" & x & ":b" & x + 99).Cut Range("a" & x + y)
End Sub

Jerry

 

[kingdomb]

That did it! Thank you, thank you!