Create VBA Macro to create new rows according to data between Sheet1 and Sheet2

Hello,

I am trying to create a macro for image names that will create blank rows between higher level numbers on Sheet1 according to data on sheet 2.

For example:
Column A Sheet1
1111
1112
1113
1114
1115

Column A Sheet2
1111-1
1111-2
1111-3
1111-4
1111-5
1111-6
1111-7
1111-8
1112-1
1112-2
1112-3
1112-4
1112-5
1112-6
1112-7
1113-1
1113-2
1113-3
1113-4
1113-5
1113-6
1114-1
1114-2
1114-3
1114-4
1114-5
1114-6
1114-7
1114-8
1114-9

I need to figure out how to insert (according to above example) 9 rows of space between 1111 and 1112 on Sheet1 according to how many images there are on sheet 2 for 1111. Any ideas? Thank you in advance for your time and input.

kbot

Thank you for your response, MRICE! It works beautifully! The only one issue, the macro shifts one less cell than needed (example below). What do I need to adjust to correct? Thanks for your time and info. -Kcarth

1897 1897-.jpg
1897-.jpg
1897-.jpg
1897-.jpg
1897-jpg
1898-.jpg
1898 1898-.jpg
1898-.jpg
1898-.jpg
1898-.jpg
1898-.jpg
1898-.jpg
1898-.jpg
1898-.jpg
1899-.jpg
1899-.jpg
1899 1899-.jpg
1899-.jpg
1899-.jpg
1899-.jpg
1899-.jpg
1900-.jpg
1900-.jpg
1900-.jpg
1900 1900-.jpg
1900-.jpg
1900-.jpg
1900-.jpg
1901-.jpg
1901-.jpg
1901-.jpg
1901-.jpg
1901 1901-.jpg
1901-.jpg
1901-.jpg
1902-.jpg
1902-.jpg
1902-.jpg
1902-.jpg
1902-.jpg