vba help please

Sub NewTest1()
    sh = Sheets("View").Range("A1").Value
    Sheets(sh).Columns("B:Z").Copy Sheets("View").Range("B1")
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
  Columns("B:Z").Clear
  myMonth = Format(Range("A1").Value, "MMM")
  Set SceSht = ThisWorkbook.Sheets(myMonth)
  SceSht.Columns("B:Z").Copy Range("B1")
End If
End Sub

Sub UpdateValidationList()
    
    Dim wsArray As Variant
    Dim sWsList As String
    Dim x As Integer
    
    wsArray = AllWorkSheets()
    'Separate array of worksheet names into a string separated by commas.
    sWsList = Join(wsArray, ",")
    
    'Add sWsList string to data validation for "A1"
    With Sheets(1).Range("A1").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:=sWsList
    End With
End Sub

Public Function AllWorkSheets() As Variant
    Dim wsArray() As Variant
    Dim x As Integer
    ReDim wsArray(Sheets.Count - 1)
    For x = 0 To Sheets.Count - 1
        wsArray(x) = Sheets(x + 1).Name
    Next x
    AllWorkSheets = wsArray
End Function

Private Sub Worksheet_Change(ByVal Target As Range)
If Me.Range("A1").Value = Me.Name Then Exit Sub
Application.EnableEvents = False
Me.Range("A2:IV65536").ClearContents
Sheets(Range("A1").Value).Range("B1:Z" & Sheets(Range("A1").Value).Range("B" & Rows.Count).End(xlUp).Row).Copy
    Sheets("Sheet1").Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False
        Application.EnableEvents = True
End Sub