macro for copying.l

this is untested as you did not offer any sample data or mocked up solution.

Option Explicit

Sub CopyPaste()
    Dim ws As Worksheet
    Dim rng As Range
    Dim w1 As Worksheet
    Application.ScreenUpdating = False
    w1 = Sheets("Main")                          'Change the name to your ws you are copying from
    Dim lr As Long
    lr = w1.Range("A" & Rows.Count).End(xlUp).Row 'find last cell in column A
    Set rng = w1.Range("A1:B" & lr)              'Range to copy.  Change columns as needed
    For Each ws In Worksheets
        w1.rng Copy                              'copy range
        ws.Range("A1").PasteSpecial xlPasteValues
    Next ws
    Application.CutCopyMode = False
    Application.ScreenUpdating = True



End Sub