bank statement

[vac]

Hi everyone, this is what Im trying to do.
I download my bank statment into a worksheet.
When the value in a cell in a row is "credit" I want to copy that row into another worksheet on the next available line. When the value is "debit" then I want that row to go to the next available row in a different workheet.
I've done some searching but not found what Im after, I hope someone can help me please.
Many Thanks, vac
ps, has anyone noticed the speed of this forum going very slow, or is it only me today?

 

[jimboy]

This will work if there aren't any empty cells in column A.

sub credit_debit ()

Sheets("All").Select
Range("A1").Select

Do Until ActiveCell = Empty
If ActiveCell = "Credit" Then 'case sensitive

ActiveCell.Rows("1:1").EntireRow.Select
Selection.Cut
ActiveCell.Offset(1, 0).Range("A1").Select
Sheets("Credit").Select
Application.Goto Reference:="R65536C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Sheets("All").Select

Else
If ActiveCell = "Debit" Then 'case sensitive
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Cut
ActiveCell.Offset(1, 0).Range("A1").Select
Sheets("Debit").Select
Application.Goto Reference:="R65536C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Sheets("All").Select
Else

ActiveCell.Offset(1, 0).Range("A1").Select
End If
End If
Loop

End Sub

 

[vac]

Many Thanks Jimboy, are you always this quick!!, that was excellent, thanks very much