Thanks for help, below code makes the job,
Sub Macro1()
Dim a As Integer
Dim b As Integer
a = 6
b = 12
Rows(a & ":" & b).Select
Selection.Copy
End Sub
Again thanks alot.Cheers