vba copy range, paste single entries into multiple worksheets same cell

[runeyjam1]

Hello:

I would greatly appreciate your help with following. I am trying to copy a range of cells (A2:A215) on one Worksheet called DataBase and paste the single values from each row in that range (A2, A3, A4, A5...A215) into cell B1 on multiple Worksheets ranging from Worksheet 2 to Worksheet 215. For example let's say I have the following data in A2:A5 on DataBase

Column A on DataBase
A2 = 12
A3 = 82
A4 = 54
A5 = 74
...
A215 = 45

I would like to achieve the following:
- Paste 12 in cell B1 on Worksheet215
- Paste 82 in cell B1 on Worksheet214
- Paste 54 in cell B1 on Worksheet213
- Paste 74 in cell B1 on Worksheet212
...
- Paste 45 in cell B1 on Worksheet2

 

[kevin9999]

Try this on a copy of your file.

Option Explicit
Sub Copy_To_B1()

    Dim wsSrc As Worksheet, wsDest As Worksheet
    Dim c As Range, i As Long
    Set wsSrc = Sheets("Database")
    i = 215
    
    For Each c In wsSrc.Range("A2:A215")
        c.Copy Sheets(i).Range("B1")
        i = i - 1
    Next c

End Sub

 

[runeyjam1]

That worked. Thanks

 

[kevin9999]

That worked. Thanks

Glad to help & thanks for the feedback