Something like

iRow = Cells(Rows.Count, "A").End(xlUp).Row
If iRow 10 Or Range("A10").Value < "" Then
iRow = iRow + 1
Else
iRow = 10
End If
' do your copy
Range("A" & iRow).Resize(1, 4).Paste


--
HTH

Bob Phillips

"Alex" wrote in message
...
Dear ALL

I have the following question:

I placed the button on the excel sheet and assign a macro which cuts the
cells' values from range b1:b4 and pastes them into range a10:d10
everything
is ok and works perfectly, but how can I do so that when I press the
button
again the new values which i type in range b1:b4 placed in a11:d11 ? and
so
on, is it possible?

Please help me with this
Thank you in advance