Hi! I am trying to import transaction data to an excel cash report file. I
need the macro to first meet 2 conditions for an account number and that it
is not miscellaneous. I got so far. Then, ones it determines that it is a
valid transaction, i want it to copy and paste the row with the transaction
data from the file to my report excel spreadsheet. However, for some reason,
I imports the same row over and over again. I need it to go down the list.
Please help.

Sub Macro1()
' Macro1 Macro
' Macro recorded 7/25/2006 by sdziamchuk
'
Dim cell As Range
Dim str As String

Windows("experiment cahs trans.csv").Activate
For Each cell In Range("a2:a30")
If cell = 272244 And cell.Offset(0, 1) <> "MISCELLANEOUS" Then

ActiveCell.Offset(2, 0).Range("A1:L1").Select
Selection.Copy
Windows("Book2").Activate
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown

ElseIf Not IsEmpty(cell.Value) Then

ActiveCell.Offset(1, 0).Activate
End If
Next cell
End Sub

--
Sergei D