If you like send your workbook to my email below along with this email and
specific instructions on what your are trying to do.

--
Don Guillett
SalesAid Software

"Benz" wrote in message
...
I originaly tried what you said :

Sub TESTINGTRANSFER2()
Selection.EntireRow.Cut Destination:= _
Sheets("B").Cells(Rows.Count, "a").End(xlUp).Row + 1
End Sub

Then I received an error.
So I tried fussing with it and tried this:

Sub TESTINGTRANSFER()

Selection.EntireRow.Copy Destination:= _
Sheets("B").Range("A1").End(xlDown).Offset(1)
Selection.Delete Shift:=xlUp

End Sub

Im not the greatest at VBA but this is so confusing to me.

Thank you for your help, its probaly frustrating to you.





"Don Guillett" wrote:

copy/paste your entire code here

--
Don Guillett
SalesAid Software

"Benz" wrote in message
...
When I tried that is when I receive the error.

"Don Guillett" wrote:

This will fail if there is nothing after a1 so you may prefer

..cells(rows.count,"a").end(xlup).row+1


--
Don Guillett
SalesAid Software

"Benz" wrote in message
...
When I try that I get the error; "Application - defined or object -
defined
error"

"Don Guillett" wrote:

This will fail if there is nothing after a1 so you may prefer

..cells(rows.count,"a").end(xlup).row+1

Sub TESTINGTRANSFER()
Selection.EntireRow.Cut Destination:= _
Sheets("sheet18").Range("A1").End(xlDown).Offset(1 )
End Sub

--
Don Guillett
SalesAid Software

"Benz" wrote in message
...
Sorry,

Code:

Sub TESTINGTRANSFER()
Selection.Copy
Sheets("A").Select
Selection.Select
Sheets("B").Select.Range("A1").End(xlDown).Offset( 1, 0).Paste
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End Sub

Thanks Don.

"Don Guillett" wrote:

Pretty easy but, as always, post YOUR coding efforts for
comments

--
Don Guillett
SalesAid Software

"Benz" wrote in message
...
Hello,

I have what I would imagine to be a pretty simple question.
I'm
having
trouble getting a macro to copy the selected row in sheet "A"
and
paste
in
the first available row in sheet "B" and then delete the
content
from
the
original row in Sheet "A". I can just almost get it but not
quiet.
Thank
you to anyone that helps.