Blue Flower

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.

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 specific number of sheets for destination copied data
If j > Sheets.Count Then 'case if destination are all sheets inside 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 'select 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 of your Workbook. Running VBA macro perform through VBA button or press ALT+F8 and run macro.