Copying Data into Cells using a Reference

Hello,

I am currently having trouble arranging data that is exported from SAP. The report gives data like this,

CC CCD P PD L LD B A ASN AD
# # # # # # ---Empty----
--------Empty------- @ @ @ @
--------Empty------- @ @ @ @
--------Empty------- @ @ @ @
--------Empty------- @ @ @ @
------Empty Row -------------------
Certification--------------------------
Bla Bla Bla----------------------------
------Empty Row -------------------
-Empty Cell-Bla Bla-----------------
Bla--------------------------------------
Bla--------------------------------------
# # # # # # ---Empty----
--------Empty------- @ @ @ @
--------Empty------- @ @ @ @
--------Empty------- @ @ @ @
--------Empty------- @ @ @ @
--------Empty------- @ @ @ @
--------Empty------- @ @ @ @
Certification--------------------------
Bla Bla Bla----------------------------
------Empty Row -------------------
-Empty Cell-Bla Bla-----------------
Bla--------------------------------------
Bla--------------------------------------

This continues until the end of the report. The amount of "--------Empty------- @ @ @ @"'s change

What I would like to do is remove the Certification and the rows below it until the next line of #'s. Also I would like to replace the Empty Cells before the @'s with the information in the #'s.

I have used the following formula to find the certification cells and remove the next few lines and the empty row above it and obviously it errors when none are found.

Cells.Find("Certification").Activate
ActiveCell.Offset(-1, 0).Range("A1:A8").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Delete Shift:=xlUp

I imagine that certification will have to used as a reference point and have tried other formulas but none have worked.

Any guidance or suggestions would be great.

Cheers