Inserting cell values only

[FACTOR 21]

I have the following code which works fine, but I need to Insert the cell values only as some of the values are derived from a =IF(VLOOKUP....... command.

Sub BacsDatabaseInsert()
'
' Bacs Database Insert Macro
'
Dim r As Range
Application.ScreenUpdating = False
    
       Sheets("Master Sheet GBP").Select
    Dim lr As Long
lr = Sheets("Master Sheet GBP").Cells(Rows.count, 1).End(xlUp).Row
Sheets("Master Sheet GBP").Range("B348:G" & lr).Copy
    Sheets("Database").Select
        Range("A2").Select
    Selection.Insert Shift:=xlDown
    Application.ScreenUpdating = True
    ActiveWorkbook.Save
    'ActiveWorkbook.Close
    End Sub

Thanks in advance

 

[Andrew Poulsom]

Maybe try:

    Selection.Insert Shift:=xlDown
    With Selection.Resize(lr - 348 + 1, 6)
        MsgBox .Address
        .Value = .Value
    End With

 

[FACTOR 21]

Hi Andrew,

Thanks for the help, that works perfectly

Jeremy