Our Recommendation for You Search your Query, You can find easily. for example search by book name or course name or any other which is related to your education


Copy data from one cell or range to multiple sheets

Copy at once, the data from one sheet to multiple worksheets

If you need to copy the value or data from specific cells (range of cells) on multiple worksheets at once then use this VBA code below.

The situation is as follows:

On the worksheet "Sheet1" (Master Sheet) contains data that we want in one go copied to other worksheets in a specific destination or cell range.
Notice in the image below that made copying a range of cells 'A1:A10' to other worksheets in the same workbook.

Copy in one step, data or value from one worksheet to multiple worksheets within the same Workbook

VBA macro to copy from one cell or range on multiple worksheets in a specific range or cell is below.

Sub CopyCellsToMultipleSheets()
'copy data from one cell or range on one sheet to multiple sheets at once
Application.ScreenUpdating = False
Dim i As Integer 'active sheet from which copies data
Dim j As Integer 'destination sheet on which data will be copied
    'For i = 1 To 5 'a specific number of first sheets, within the workbook that is copied
    For i = 1 To Sheets.Count 'total number of sheets in a workbook that is copied
        Sheets(i).Select 'active sheet from which you run VBA
        Range("A1:A10").Select 'selects the cell/range on the active sheet
        Selection.Copy 'copies a range of the active sheet in this case A1:A10
        j = i + 1 'each next sheet
            'If j > 5 Then 'set a specific number of sheets for destination copied data
            If j > Sheets.Count Then 'case if destination are all sheets inside the workbook
            Sheets("Sheet1").Select 'selecting a source master sheet
            Range("A1").Select 'selecting cells on the master sheet
                Application.CutCopyMode = False 'remove selection
                Application.ScreenUpdating = True
                Exit Sub 'exit from the procedure
            End If
    Sheets(j).Select 'selects the destination sheet that is copied
    Range("A1").Select 'selects the first cell in the column to the destination sheet
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False 'paste the copied data in the selected range/cell at the destination sheet
        Range("A1").Select 'selects cell A1
    Next i 'continues with the same procedure on the next sheet by the end of
End Sub

VBA macro to copy in standard Module, your Workbook.
Running VBA macro perform through VBA button or press ALT+F8 and run the macro