Macros paste problem!

[Ks1102]

Hi, all please help as don't know which problem below code, which was copy form web than past on at sheet1 found the last row.

    Sheets("sheet1").Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True

thanks very must your advise.

 

[ziad alsayed]

what do you want to do??

 

[Ks1102]

what do you want to do??

Sub Run_Report()
    Dim lnk As Object, ie As Object, doc As Object, i As Long
    Set ie = CreateObject("InternetExplorer.Application")
    With ie
        .Visible = True
        .navigate "URL:from company"
        Do Until .readyState = 4: DoEvents: Loop
            Set doc = ie.document
            .ExecWB 17, 0
            .ExecWB 12, 2
            .Quit
        End With
        Set ie = Nothing
     With Sheets("Sheet1")
    Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
End With
End Sub

that's show me error on paste sheet1.

can u help me what i get wrong.