This will do it

Private Sub Command1_Click()

Dim Daily As Worksheet
Dim Data As Worksheet
Dim i%

Set Daily = Worksheets("Daily")
Set Data = Worksheets("Data")

For i = 1 To 26

Daily.Range("A12").Offset((i - 1) * 20, 0).Value =
Data.Range("A5").Offset(i - 1, 0).Value
'Daily.Range("A32").Value = Data.Range("A6").Value
'all the way down to'
'Daily.Range("A562").Value = Data.Range("A30").Value

Next i

End Sub

Alok Joshi


"Qaspec" wrote:

right now i'm using the following code to transfer data. instead of
reapeating the line 26 times is there a way to create this code in a smaller
statement if the data row always increases by 20 and the daily row by 1.

Private Sub Command1_Click()

Dim Daily As Worksheet
Dim Data As Worksheet


Set Daily = Worksheets("Daily")
Set Data = Worksheets("Data")

Daily.Range("A12").Value = Data.Range("A5").Value
Daily.Range("A32").Value = Data.Range("A6").Value
'all the way down to'
Daily. Range("A562").Value=Data.Range("A30").Value



End Sub