VBA Copy Range and Past till Last Row

[winde]

What code do i use to do the following?

Copy range I2:I14

Paste from I15 to Last row(based on column A).

Thanks.

 

[jolivanes]

Try

Sub Maybe()
Dim lr As Long, i As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To Int(lr / 13) - 1
        Range("I2:I14").Copy Cells(Rows.Count, 9).End(xlUp).Offset(1)
    Next i
End Sub

 

[AlphaFrog]

Sub Definitely()
    Range("I2:I14").AutoFill Range("I2:I" & Range("A" & Rows.Count).End(xlUp).Row)
End Sub

 

[Rick Rothstein]

[table="width: 500"]
[tr]
	[td]Sub Definitely_Maybe()
  Range("I3:I" & Cells(Rows.Count, "A").End(xlUp).Row) = Range("I2").Formula
End Sub[/td]
[/tr]
[/table]

 

[winde]

Try

Sub Maybe()
Dim lr As Long, i As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To Int(lr / 13) - 1
        Range("I2:I14").Copy Cells(Rows.Count, 9).End(xlUp).Offset(1)
    Next i
End Sub

Thanks..works like a charm