VBA Code To Copy Data Into Next Blank Column

[excelbytes]

What I am trying to do is copy the data and format from O11:O31 into V11:V31 if V11 is empty. But if there is data in V11, or any consecutive column to the right, find the next blank cell in row 11 the paste the data there.
What is happening is when V11 is empty it works. When V11 is not empty it pastes it in W11, which again is correct. But after that, it keeps pasting the values over in W11.

Here is my code:

Public Sub NextColumn()

Range("O11:O31").Copy

If IsEmpty(Range("V11")) Then
Range("V11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats
Else
Range("V11").Select
ActiveCell.End(xlToRight).Offset(0, 1).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats

End If

End Sub

 

[mumps]

Try:

Public Sub NextColumn()
    Application.ScreenUpdating = False
    Dim lCol As Long
    If Range("V11") = "" Then
        Range("O11:O31").Copy Range("V11")
    Else
        lCol = Cells(11, Columns.Count).End(xlToLeft).Column + 1
        Range("O11:O31").Copy Cells(11, lCol)
    End If
    Application.ScreenUpdating = True
End Sub

 

[excelbytes]

Try:

Public Sub NextColumn()
    Application.ScreenUpdating = False
    Dim lCol As Long
    If Range("V11") = "" Then
        Range("O11:O31").Copy Range("V11")
    Else
        lCol = Cells(11, Columns.Count).End(xlToLeft).Column + 1
        Range("O11:O31").Copy Cells(11, lCol)
    End If
    Application.ScreenUpdating = True
End Sub

Almost - it's pasting the formulas from O11:O31. I need it to paste the values and format only.

 

[mumps]

Try:

Public Sub NextColumn()
    Application.ScreenUpdating = False
    Dim lCol As Long
    If Range("V11") = "" Then
        Range("O11:O31").Copy
        With Range("V11")
            .PasteSpecial xlPasteValues
            .PasteSpecial xlPasteFormats
        End With
    Else
        lCol = Cells(11, Columns.Count).End(xlToLeft).Column + 1
        Range("O11:O31").Copy
        With Cells(11, lCol)
            .PasteSpecial xlPasteValues
            .PasteSpecial xlPasteFormats
        End With
    End If
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

 

[excelbytes]

Try:

Public Sub NextColumn()
    Application.ScreenUpdating = False
    Dim lCol As Long
    If Range("V11") = "" Then
        Range("O11:O31").Copy
        With Range("V11")
            .PasteSpecial xlPasteValues
            .PasteSpecial xlPasteFormats
        End With
    Else
        lCol = Cells(11, Columns.Count).End(xlToLeft).Column + 1
        Range("O11:O31").Copy
        With Cells(11, lCol)
            .PasteSpecial xlPasteValues
            .PasteSpecial xlPasteFormats
        End With
    End If
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

Thanks. That seems to be working. Do you know why my code didn't work?

 

[mumps]

You are very welcome.
This line of code is looking for data to the right of V11. Since there is no data to the right of V11, an error is generated.

ActiveCell.End(xlToRight).Offset(0, 1).Select