Combine multiple rows with a certain criteria into one row

Hello,

I am working on a project where I need to combine multiple rows based on an ID number into one row. I have been trying to achieve this with a for each loop to match IDs from the previous cell in the loop range and cutting the entire row to the next empty column in the row above it. The worksheet looks something like this:

Name ID# Acct # Acct Type
Mike 1234 2345 1
Bob 1235 3456 1
Tom 1236 5678 1
Tom 1236 5678 2
Tom 1236 5678 3

It should look like this:

Name ID# Acct # Acct Type
Mike 1234 2345 1
Bob 1235 3456 1
Tom 1236 5678 1 Tom 1236 5678 2 Tom 1236 5678 3

I also need to delete the rows once the data is moved up. It's been difficult because the amount of ID number rows vary for each person. What would be the best way to achieve this. I am fairly new to VBA so any help would be greatly appreciated.

Thank you so much! It worked great!