I don't know how you can implement, that each row  contains
one radio  button. So I will assume that RowOfRadioButton
will be a number of row in which the radiobutton is selected.

Activesheet.Range("a" & RowOfRadioButton & ":d" & RowOfRadioButton).Copy
ToWhichRowCopy=Activesheet.Range("a" & RowOfRadioButton).Value
Sheets("othersheet").Activate
Activesheet.Range("a" & ToWhichRowCopy).PasteSpecial Paste:=xlPasteAll