Help w/Offset Paste

[Toasty]

Hi, pretty sure I'm over looking the obvious. Just need to have the copied range paste in the first empty cell to the right of D19.

Sub AddColumn()
    Application.ScreenUpdating = False
    Sheets("Output").Select
    Dim Count As Integer
    Count = 0

    If Range("D19").Offset(0, Count) = "" Then
        Sheets("Temp").Range("E14:E26").Copy
        Sheets("Output").Range("D19").Offset(0, Count).PasteSpecial (xlPasteValues)    
        Count = Count + 1
    End If


    Application.ScreenUpdating = True
End Sub

[offthelip]

You forgot to put a loop in!!

[SamT]

Sub AddColumn() 
    Application.ScreenUpdating = False 

Sheets("Temp").Range("E14:E26").Copy 
        Sheets("Output").Range("D19").End(xlToRight).Offset(0, 1).PasteSpecial (xlPasteValues) 
 
    Application.ScreenUpdating = True 
End Sub