Macro - input sheet selection

Here is the Macro. Just need it to enter on the sheet identified by C4

 
Sub EnterData()
'
' EnterData Macro
' Macro recorded 2/19/2007 by
'
' Keyboard Shortcut: Ctrl+s
'
    Range("E3:G3").Select
    Selection.Copy
    Sheets ("Sheet4")  
    Range("A7").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Rows("7:7").Select
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlDown
    Rows("28:28").Select
    Selection.Delete Shift:=xlUp
    Sheets("Sheet1").Select
End Sub