Insert a new column from selected cell

[waxb18]

Basically i have an empty column and want to insert another one.
There is data on either side of the empty column.

I then need to input data from another spreadsheet (this i know how to do in VBA), however as i will be doing this daily the reference i input for these cells will change hence i will need a generic. I was thinking of using an End(xlright) to get to the empty cell then use a offset(,-1) to get to the cell i want to select.

What do you guys think?

 

[waxb18]

This is the start of my code to select the empty cell in Column DL

Range("B3").End(xlToRight).Offset(, 1).Select

 

[VoG]

Try

Range("B3").End(xlToRight).Offset(, 1).EntireColumn.Insert

 

[waxb18]

yet again VoG you provide invaluable help...

Another quick one... i need to open the most recently produced file from a directory any ideas?

 

[VoG]

Try this - change the part in red to suit

Sub LastModifiedFile()
Dim dirName As String, fName As String, fileTime As Date, fileName As String, latestFile As String
dirName = "C:\My Documents\"
fName = Dir(dirName & "*.*")
latestFile = fName
fileTime = FileDateTime(dirName & fName)
While fName <> ""
    If FileDateTime(dirName & fName) > fileTime Then
        latestFile = fName
        fileTime = FileDateTime(dirName & fName)
    End If
    fName = Dir()
Wend
If latestFile = "" Then
    MsgBox "There are no files in the directory"
Else
    Workbooks.Open "C:\My Documents\" & latestFile
End If
End Sub

 

[waxb18]

Nice one mate :D