When you go to midget, you insert 3 rows above midget - is that what you
want.

get rid of Range("B3:G3").Select

if you want to paste on midget, then you are done.

If you want to paste in the blank rows above midget then replace
Range("B3:G3").Select

with
activecell.offset(-3,0).Select

--
Regards,
Tom Ogilvy

"Logan" wrote in message
...
I've trying a conditional copy and paste routine but, being
a newbie, can't work it out. I have searched through
everyone's website and Goggle but can't seem to find
anything that will point me in the right direction.
I have done the record macro routine and tried to add in
conditional If but that ain't happening. Here is what I
have done.
I have three other possible conditions for "level"
(MITE,BLASTBALL,SQUIRT) which I hope to work in with Else If.


Sub Macro1()
'
' Macro1 Macro
' Macro recorded 01/04/2004 by
'

'
Application.Goto Reference:="level"
If level = "MIDGET" Then
Application.Goto Reference:="midget"
Rows("3:3").Select
Selection.Insert Shift:=xlDown,
CopyOrigin:=xlFormatFromRightOrBelow
Application.Goto Reference:="Input"
Selection.Copy
Application.Goto Reference:="midget"
Range("B3:G3").Select
ActiveSheet.Paste

End If
End Sub

Not sure what I'm doing
Any help whould be appreciated