Code to paste value to a Merged cell problem

[gheyman]

The code below will not allow me to paste special because the destination is a Merged cell ("L20:M20"). How do I change this code so that it Paste a value in L20?

Thanks

Sub ReviseIHS()
'Comm_IHS_Code  3 Enter Quote Data

'*************************************************************
'Replace the IHS Code in 3 Enter Quote Data with selection
'*************************************************************

Application.CutCopyMode = False

    Dim LR As Long


    LR = Cells(Rows.Count, "C").End(xlUp).Row

        If Intersect(ActiveCell, Range("C11:G" & LR)) Is Nothing Then
            MsgBox "You must select a cell within the IHS Table.  Select a valid Cell"
            Exit Sub
        End If

    Sheets("Comm_IHS_Code").Range("D" & ActiveCell.Row).Copy
    Sheets("3 Enter Quote Data").Range("L20").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
Application.CutCopyMode = True

End Sub

 

[gheyman]

Got it - Thanks

Sub ReviseIHS()
'Comm_IHS_Code  3 Enter Quote Data

'*************************************************************
'Replace the IHS Code in 3 Enter Quote Data with selection
'*************************************************************

Application.CutCopyMode = False

    Dim LR As Long


    LR = Cells(Rows.Count, "C").End(xlUp).Row

        If Intersect(ActiveCell, Range("C11:G" & LR)) Is Nothing Then
            MsgBox "You must select a cell within the IHS Table.  Select a valid Cell"
            Exit Sub
        End If

    Sheets("3 Enter Quote Data").Range("L20").Value = Sheets("Comm_IHS_Code").Range("D" & ActiveCell.Row).Value

'    Sheets("Comm_IHS_Code").Range("D" & ActiveCell.Row).Copy
 '   Sheets("3 Enter Quote Data").Range("L20").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 '       :=False, Transpose:=False
        
Application.CutCopyMode = True

End Sub