Skip blank cells

Hi everyone,

Would like to ask your recommendation using a simple vba code on how to ignore a blank cell and copying those with populated cells.

Example:

Sheet 1

A
1 100
2 200
3
4
5 150
6
7 200

Would end up like this..


Sheet 2

A
1 100
2 200
3 150
4 200
5
6
7


Thanks a lot in advance!