VBA insert unique formula into discrete cells

[Deliverable7]

HI Team

I have built the following code to insert a number of unique formula into discrete cells which works fine however my OCD is working on me to simplify the code (the code below is a small sample of what I needs to develop). Can you please show me how the code can be better organized/simplified.

  Range("10:10").Insert
    Sheets("Gantt Inputs").Cells(10, 2) = "'BCI'!$C$55"
    Sheets("Gantt Inputs").Cells(10, 3) = "BCI'!$C6"
    Sheets("Gantt Inputs").Cells(10, 5) = "BCI'!$C16"
    Sheets("Gantt Inputs").Cells(10, 6) = "BCI'!$C66"

Thanks

 

[CephasOz]

Perhaps like this:

    With ThisWorkbook.Worksheets("Gantt Inputs")
        .Rows(10).Insert
        .Cells(10, 2) = "=BCI!$C$55"
        .Cells(10, 3) = "=BCI!$C6"
        .Cells(10, 5) = "=BCI!$C16"
        .Cells(10, 6) = "=BCI!$C66"
    End With

 

[Deliverable7]

CephasOz
Im crying now mate, its a bewdiful thang that ya did.
Cheers

 

[CephasOz]

Glad to help.