Isn't it just

Sub AddLanguage()
Selection.Copy
Sheets("Active projects").Select
Rows("4:4").Insert Shift:=xlDown
End Sub


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Natasha" wrote in message
...
I would like the user to select the cell where the range is to be added and
then click the buton that runs the macro to add the range. At the moment
the
Macro looks like this:

Sub AddLanguage()
'
' AddLanguage Macro
' Macro recorded 05/09/2008 by NATASHA
'
' Keyboard Shortcut: Ctrl+m
'
Sheets("BackgroundData").Select
Rows("40:44").Select
Selection.Copy
Sheets("Active projects").Select
ActiveWindow.SmallScroll Down:=-495
Rows("4:4").Select
Range("G4").Activate
Selection.Insert Shift:=xlDown
End Sub
--
Natasha