VBA не может выполняться на всем листе

Question

Помогите, этот код работает только на одном листе, если код учитывает «Диапазон для ActivateSheet.Paste». Я хочу запустить это на всех листах, но когда я ввожу приведенный ниже код, появляется ошибка «Next Without For». Цените любые идеи :)

Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets
        ws.Activate
    
    Range("G25").Select
    Selection.End(xlDown).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("E25").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(0, 2).Range("A1:E1").Select
    Range(Selection, Selection.End(xlUp)).Select
    ActiveCell.Activate
    ActiveSheet.Paste
    

Next ws End Sub

Answer 1

Просто придумай решение. Удаление Application.CutCopyMode = False и ActiveCell.Activate, размещение E