range("a2:c2").copy range("d" & a1+1)
Sub cpy() Dim i& i = Cells(1, 1) Select Case i Case 1 Range("a2:c2").Copy Range("d2") Case 2 Range("a2:c2").Copy Range("d3") End SelectEnd Sub