create new sheets but formula not coping

[ganu learner]

Res Sir I have a vba script in which i create new sheets from main sheet.
all is fine but only value paste from main sheet to new created sheets. I want here all data copy with formula so please modify for furmula
vba script is here below


Sub parse_data()
Dim xRCount As Long
Dim xSht As Worksheet
Dim xNSht As Worksheet
Dim I As Long
Dim xTRrow As Integer
Dim xCol As New Collection
Dim xTitle As String
Dim xSUpdate As Boolean
Set xSht = ActiveSheet
On Error Resume Next
xRCount = xSht.Cells(xSht.Rows.Count, 1).End(xlUp).Row
xTitle = "A1:D11"
xTRrow = xSht.Range(xTitle).Cells(1).Row
For I = 1 To xRCount
Call xCol.Add(xSht.Cells(I, 1).Text, xSht.Cells(I, 1).Text)
Next
xSUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xCol.Count
Call xSht.Range(xTitle).AutoFilter(1, CStr(xCol.Item(I)))
Set xNSht = Nothing
Set xNSht = Worksheets(CStr(xCol.Item(I)))
If xNSht Is Nothing Then
Set xNSht = Worksheets.Add(, Sheets(Sheets.Count))
xNSht.Name = CStr(xCol.Item(I))
Else
xNSht.Move , Sheets(Sheets.Count)
End If
xSht.Range("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
xNSht.Columns.AutoFit
Next
xSht.AutoFilterMode = False
xSht.Activate
Application.ScreenUpdating = xSUpdate
End Sub

 

[My Aswer Is This]

Why not just copy the entire sheet like this:

Sub Copy_Sheet()
'Modified 3/16/2020 9:07:54 AM EST
Sheets("Me").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "You"
End Sub

 

[ganu learner]

Why not just copy the entire sheet like this:

Sub Copy_Sheet()
'Modified 3/16/2020 9:07:54 AM EST
Sheets("Me").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "You"
End Sub

Res Sir in my scenario all sheet not copy .
Here my main sheet is dynamic and all row refresh and updated every second.
Now if main sheet have 9 rows then make new sheet for every row with all formulas