Hello all, I am trying to clear a row after it has been selected to be
copied to another worksheet. The code I have currently copies and
pastes well but I still have to manually highlight and "clear
contents" to remove it. I'm sure for you guys that this is probably so
simple. Hope you can help. Here is the Copy/Paste code I have.

Sub Button153_Click()
Dim R As Range
On Error Resume Next
Set R = Application.InputBox("Select A Row to Copy:", _
"Transfer to Complete", Type:=8)
If R Is Nothing Then Exit Sub
On Error GoTo 0
Set R = R.Resize(1, 8)
R.Copy Sheets(2).Cells(65000, 1).End(xlUp).Offset(1, 0)
Sheets("Complete").Select
Sheets("Outstanding").Select
End Sub


Thanks

If you want to clear R, use:
R.ClearContents
If you want to clear the entire row as you say, use:
R(1).EntireRow.ClearContents
HTH Otto
"Kezza" <(E-Mail Removed)> wrote in message
news:e280b7c0-ae89-4f41-a8ff-(E-Mail Removed)...
> Hello all, I am trying to clear a row after it has been selected to be
> copied to another worksheet. The code I have currently copies and
> pastes well but I still have to manually highlight and "clear
> contents" to remove it. I'm sure for you guys that this is probably so
> simple. Hope you can help. Here is the Copy/Paste code I have.
>
> Sub Button153_Click()
> Dim R As Range
> On Error Resume Next
> Set R = Application.InputBox("Select A Row to Copy:", _
> "Transfer to Complete", Type:=8)
> If R Is Nothing Then Exit Sub
> On Error GoTo 0
> Set R = R.Resize(1, 8)
> R.Copy Sheets(2).Cells(65000, 1).End(xlUp).Offset(1, 0)
> Sheets("Complete").Select
> Sheets("Outstanding").Select
> End Sub
>
>
> Thanks