paste special using with not working

In the code below how do I copy into sheet1 starting from A1? I thought I could just select the first part of a range and it would copy the entire thing.

Sub jimbo()
Dim wks As Worksheet
    
For Each wks In ActiveWorkbook.Worksheets
    Select Case wks.Name
        Case "Sheet1", "TOTAL", "FA", "FW"
    Case Else
        wks.Range("K222:K261").Copy
        With Sheets("Sheet1").Range("A1:A100")
        .PasteSpecial xlPasteValues
        End With
    End Select
Next wks
End Sub