With kode

Jeg har nedenstående kode, som en del af min programering, men kan ikke få den til at indsætte det kopieret felt (nr. 2) i cellen. iRow er en defineret række, database er en fanen, hvor frm er en anden fane.

Det er er tastet i Range("B1") er en formel, derfor er det vigtigt den indsætter det kopieret. Er der en der ved hvad jeg skal skrive i stedet for .Paste, efter .Cells(iRow. 2).???

With database
   
        .Cells(iRow, 1).Value = iSerial
             
        .Cells(iRow, 2).Paste = database.Range("B1").Copy
       
        .Cells(iRow, 8).Value = frm.Range("G10").Value
       
        .Cells(iRow, 9).Value = frm.Range("I10").Value
       
        .Cells(iRow, 3).Value = frm.Range("G6").Value
             
        .Cells(iRow, 10).Value = frm.Range("G12").Value
       
        .Cells(iRow, 11).Value = frm.Range("I12").Value
       
        .Cells(iRow, 12).Value = frm.Range("G14").Value
       
        .Cells(iRow, 13).Value = frm.Range("I14").Value
         
        .Cells(iRow, 14).Value = frm.Range("G16").Value
       
        .Cells(iRow, 15).Value = frm.Range("I16").Value
               
        .Cells(iRow, 16).Value = frm.Range("G18").Value
       
        .Cells(iRow, 17).Value = frm.Range("I18").Value
         
        .Cells(iRow, 5).Value = frm.Range("G20").Value
       
        .Cells(iRow, 6).Value = frm.Range("G24").Value
       
        .Cells(iRow, 7).Value = frm.Range("G22").Value
       
                             
    End With