Getting Error 1004 When Saving And Emailing?

I've created a userform below and I have a code to write the data entered in the form do the following:

1. Save the data in a worksheet (Asset History) within the same workbook,

2. Copy the newly entered data into a another worksheet (Asset Form).

3. Take an image of the data from worksheet (Asset Form) and

a) Create a HTML image on out look

b) Send out an email (Get the email distribution from worksheet (EmailList)

4. I also want to be able to select the data nad change if any of the information changes using the userform.

Not sure why my code is getting stuck and getting the attached error "1004" when I get to saving and emailing. My guess is that the error is on the Checklist option explicit but I cants fix.

Here is the full coding

Private Sub cmdsave_Click()
Dim cell As Range
Dim rowoffset As Integer

[Code]..............