Find non-blank cells and retrieve data at corresponding cells

You could try this VBA... an array formula with that many cells will be slow. Try this (obviously on test data first!):

Sub CopyA2K()
Dim thisRow As Long
For thisRow = 1 To 15000 'Change these numbers to match the range of rows you need changed.
    If Range("I" & thisRow).Value <> "" Then
        Range("K" & thisRow).Value = Range("A" & thisRow).Value
    End If
Next
End Sub

- Moo