Macro kako napisati kod za ostale sheet-ove

U kodu stavljena naredba da kopira u sheet1, A1 u rang B3:B34, sta treba dodati da istu naredbu kopira u sheet2,sheet3,sheet4 i ostale, znaci onaj next? Sta kod njega staviti i pre njega?

Ako je u pitanju unos istih podataka na više sheets tada uradi slijedeće
Pritisni CTRL i mišem selektiraj sve Sheets da ih grupiraš. Unesi podatke u određeni range i i potvrdi sa enter.
Izvrši ungroup grupiranih sheets. Sada imaš podatke na svakom sheetu

Hvala Ivek33 za ovo nisam znao, ali u rangu nisu istipodaci, tj u svakom od sheet-a su u A1 razliciti podaci a A1 kopiram u rasponu B9:B30, nasao sam nesto mozda moze bolje i jednostavnije

Sub Macro1()

Dim i As Integer
For i = 1 To Worksheets.Count
Sheets(i).Select
Range("A1").Select
Selection.Copy
Range("C7:C44").Select
ActiveSheet.Paste
Next i
End Sub

ovaj i mi je bio problem.

Sad imam tu pitanje, da li je moguce da ova formula ide na svaki parni sheet, odnosno neparni, znaci na svaki drugi sheet, ili prvih 10 a ne poslednjih 10?

Promeni samo u "For petlji" korak na 2.

Potpis

VICTORIA CONCORDIA CRESCIT

Koliko sam razumeo treba u trecem redu da zamenim umesto 1 da napisem 2?
Ako je tako, probao sam i tada krece od sheet2 a ne neparne ili parne sheet-ove.

Zaboravio sam da pitam, da li moze da to radi po imenu sheet-a a ne po fabrickom broju sheet-a?

Npr imam 4 sheet: sheet1,sheet2,1,2 i da uradi samo u 1,2.

Treći red treba da glasi

For i = 1 To Worksheets.Count Step 2