To extract data to a page with particular name and if page exisits then delete exisiting data and update via pasting new extract in same page

[EleKTron]

Hello all,
Being a newbie to coding and VBA,
I am struggling a bit to create a vba code for extracting data to a page with particular name and if page exisits then delete exisiting data and update via pasting new extract in same page
But this code does not transfer data to the particular page instead creates new everytime i run code, also does not check for page name and do as required!
Please Help!! ? (My posts so far have always remained unanswered hoping this one shall help)


My code below -

Sub Datasort()
'The sheet with all the imported data columns must be active when this macro is run
Dim newSht As Worksheet, sSht As Worksheet, Hdrs As Variant, i As Long, Fnd As Range, Sheet_Name As String
Set sSht = Worksheets("all zip codes")
'Expand the array below to include all relevant column headers
Hdrs = Array("Country", "Zip codes", "GSS")
Application.ScreenUpdating = False

Sheet_Name = "Dataformatted"

Set newSht = Worksheets.Add(after:=sSht)

With sSht.UsedRange.Rows(1)
For i = LBound(Hdrs) To UBound(Hdrs)
Set Fnd = .Find(Hdrs(i), lookat:=xlWhole)

If Not Fnd Is Nothing Then
Intersect(Fnd.EntireColumn, sSht.UsedRange).Copy
newSht.Cells(1, i + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
newSht.Cells(1, i + 1).PasteSpecial Paste:=xlPasteColumnWidths
End If
Next i

Application.CutCopyMode = False
End With
If (Sheet_Exists(Sheet_Name) = False) And (Sheet_Name <> "") Then
Worksheets.Add(after:=sSht).Name = Sheet_Name
End If
Application.ScreenUpdating = True
End Sub
Function Sheet_Exists(WorkSheet_Name As String) As Boolean
Dim newSht As Worksheet

Sheet_Exists = False

For Each newSht In ThisWorkbook.Worksheets

If newSht.Name = WorkSheet_Name Then
Sheet_Exists = True
End If

Next

End Function