I am new to VBA in excel and I am having difficulty that will copy the active row of data from one sheet titled "Activity Schedule" to an active sheet. VBA code is currently used to auto duplicate the active sheet from a hidden sheet using a short cut key ctrl-a. Each new sheet has a name Site (2), Site (3) and sor forth. The data on the Activity Sheet starts on row 5 and should be copied to row 3 of the current active sheet. Example. If data is put in the Activity Sheet on row 5 (column b:j) when the user engages ctrl-a to create the Site (2) sheet all data from row 5 on the Activity schedule will copy to row 3 columns A:I. My code is copied below. I appreciate any and all assistance. This is my first post, so if I have posted incorrectly please let me know.

Reggie

Code Below:

Sub DupSheet()
Dim ActNm As String
activeworkbook.Sheets("Site").Visible = True
activeworkbook.Sheets("Site").copy _
after:=activeworkbook.Sheets("Site")
ActNm = ActiveSheet.Name
Sheets(ActiveSheet.Name).Visible = True
activeworkbook.Sheets("Site").Visible = False
' The code above allows the copy of a hidden worksheet (duplication)with an assigned short cut key of ctrl - a. This function works great!
End Sub

Sub CopyRow(ActiveRow As Long)
' This code is attempting to copy the active row of data from the "activity schedule sheet" (active row from column B:J
' to the current active worksheet (active row 3 column A:I) in the workbook.
' The copy function needs to copy when the ctrl -a function is engaged to create the new worksheet.


Dim ws1Name As String, ws2Name As String
Dim myRow As Integer
' Set counters for processing Sheet1
sfRow = 1
' Set sheet names
' Activate Sheet2 to show list as it grows
ws1Name = "Sheet1"
ws2Name = "Sheet2"
Sheets(ws2Name).Activate
' find a relevant row of Sheet1
myRow = B: B
' copy the data from sfRow to Sheet2 starting at the active cell
With Sheets(ws1Name)
.Range(.Cells(myRow, 3), .Cells(myRow, 1)).copy Destination:=ActiveCell
' move the active cell to next row
ActiveCell.Offset(1, 0).Activate
End With

End Sub