Copy Range & Paste To First Blank Column : I want to copy range and paste in first blank column, but I'm getting errors! I appreciate any help from you, here is my code:

    Sub Report()

    Dim lRow As Long
    Dim lCol As Long
    Application.DisplayAlerts = False

    Sheets("Chart").Select
    Range("D9:D17").Select
    Selection.Copy
    Sheets("Report").Select
    lCol = Cells(4, Columns.Count).End(xlToLeft).Column + 1
    Range("lCol:lCol+9").Paste 
  
    End Sub