For the first part, try this:
VB Code:
Dim lngSelectionRow as Long
lngSelectionRow = Selection.Row
With Worksheets("[U]sheetname[/U]")
.Range("B" & lngSelectionRow).Value = temp1
.Range("C" & lngSelectionRow).Value = temp2
End With
And for the second, either of these:
VB Code:
Worksheets("[U]sheetname[/U]").Range("A" & lngSelectionRow & ":E" & lngSelectionRow).Select
Worksheets("[U]sheetname[/U]").Range("A" & lngSelectionRow & ":E" & lngSelectionRow).Copy Worksheets("[U]target sheetname[/U]").Range("[U]A1[/U]")