Macros for create new excel sheet from active workbook

Hi,
could you please provide a logic for create new excel sheet from active workbook, please find the my code below.
Private Sub cmdCFUploadFile_Click()
STR_METHOD_NAME = "cmdCreateFinalSheet_Click"
Dim strPath As String
Dim strCurrPath As String
Dim strPriorPath As String
Dim strCurryear As String
Dim strCurrMonth As String
Dim strPriorMonthFile As String
Dim strCurrentMonthFile As String
Dim strPriorYear As String
Dim strPriorMonth As String
Dim strTempRow As String
'Get the path where the current workbook is located
strPath = Application.ActiveWorkbook.Path
'Get the Current year and month from the Sheet
strCurryear = Trim(ActiveSheet.Range("D16"))
strCurrMonth = Trim(ActiveSheet.Range("E16"))

If MsgBox("Are you sure that you have selected the correct year and month in the year and month cells ?", vbYesNo) = vbYes Then

If strCurrMonth = 1 Then
strPriorYear = strCurryear - 1
strPriorMonth = 12
Else
strPriorMonth = strCurrMonth - 1
strPriorYear = strCurryear
End If
'Get the prior month file path
strPriorPath = strPath & "\CF_Upload_" & strPriorMonth & "_" & strPriorYear & ".xlsx"
'Get the current month file path
strCurrPath = strPath & "\CF_Upload_" & strCurrMonth & "_" & strCurryear & ".xlsx"


'Check If the file with the current month name already exists or not
If bFileExists(strCurrPath) Then
'If the file with current month exists
'Rakesh
If MsgBox("The file for current month already exists. Do you want to rerun it again", vbYesNo) = vbYes Then
If bWorkbookIsOpen("CF_Upload_" & strCurrMonth & "_" & strCurryear & ".xlsx") Then
MsgBox ("The current month file is already open. Please close this file and run it again. ")
Exit Sub
End If
Else
Exit Sub
End If
End If

On Error GoTo ErrorHandler

'Activate the "Final" worksheet to get the no of rows in it.
ThisWorkbook.Worksheets("Final").Select

If Trim(ActiveSheet.Range("A2")) <> "" Then
ActiveSheet.Range("A2").Select
Selection.End(xlDown).Select
strTempRow = Selection.Row
Else
strTempRow = 1
End If
'Call ths method to preserve history
GetPreviousHistory (strTempRow)


Call WriteCFUploadData(strTempRow, strCurryear, strCurrMonth)
ActiveSheet.Range("A2:D" & strTempRow).Select
' Selection.Clear



' strPriorPath = strPath & "\CF_Upload_" & strPriorMonth & "_" & strPriorYear & ".xlsx"
' strCurrPath = strPath & "\CF_Upload_" & strCurrMonth & "_" & strCurryear & ".xlsx"

If bFileExists(strPriorPath) Then
'If the file exists then check whether its open or not
If Not bWorkbookIsOpen("CF_Upload_" & strPriorMonth & "_" & strPriorYear) Then
'If the file is not open then open the file
Workbooks.Open Filename:=strPriorPath, UpdateLinks:=0
Workbooks("CF_Upload_" & strPriorMonth & "_" & strPriorYear & ".xlsx").Activate

If bFileExists(strCurrPath) Then
If MsgBox("There is already a file name" & "\CF_Upload_" & strCurrMonth & "_" & strCurryear & ".xlsx" & _
" at the path " & strPath & " Do you want to overwrite it", vbYesNo) = vbYes Then
'To delete the file with the current name

fobj.DeleteFile strCurrPath, True
Sleep 2000

'Now save the file again
Workbooks("CF_Upload_" & strPriorMonth & "_" & strPriorYear & ".xlsx").Activate
ActiveWorkbook.SaveAs Filename:=strCurrPath, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

End If

On Error Resume Next

Else
ActiveWorkbook.SaveAs Filename:=strCurrPath, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
On Error Resume Next
End If
Call CopyCFData(strCurrMonth, strCurryear)
Else
Workbooks("CF_Upload_" & strPriorMonth & "_" & strPriorYear & ".xlsx").Activate

If bFileExists(strCurrPath) Then
If MsgBox("There is already a file name" & "\CF_Upload_" & strCurrMonth & "_" & strCurryear & ".xlsx" & _
" at the path " & strPath & " Do you want to override it", vbYesNo) = vbYes Then

fobj.DeleteFile strCurrPath, True
Sleep 2000

'To delete the file with the current name
'Now save the file again
ActiveWorkbook.SaveAs Filename:=strCurrPath, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

End If

Else
ActiveWorkbook.SaveAs Filename:=strCurrPath, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End If

Call CopyCFData(strCurrMonth, strCurryear)


End If