VBA To Create A New Workbook

[Excel Fox]

    With ThisWorkbook.Worksheets("Sheet1")
        Set rngRange = .Range("K1")
        Set rngRange = .Range(rngRange, .Cells(.Rows.Count, rngRange.Column).End(xlUp))
    End With

does exactly target column K