I am not sure about the .csv file because I am relatively new to programming myself, but here is code that I think will work for your first issue:
I went on some assumptions 1) The sheet to copy to is called "Sheet2" 2) The ID number could be anything.Range("B1").Select
Dim UniqueID As String
Dim RowNum As Integer
UniqueID = SomeNumber
RowNum = 1
Do Until ActiveCell = ""
If ActiveCell = UniqueID Then
Rows(RowNum).Select
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Paste
End
Else
ActiveCell.Offset(1, 0).Select
RowNum = RowNum + 1
End If
Loop
Hope this helps!
Bookmarks