flash fill vba for excel 2010

[JSH720]

I am currently using Microsoft Office Professional Plus 201. Flash fill came along in 2013. Is ther a vba to do the things that flash fill does (both adding pattin and splitting out without concatenate and text to columns)?

Thanks.

 

[kweaver]

It appears to work in VBA. I put what looked like social security numbers in A1:A4 (without any dashes) and this flashfilled them

Sub FFvba()
Cells(1, 2) = "123-45-6789"
Dim rng As Range
Set rng = Range("B1:B4")
rng.FlashFill
End Sub

You have to be careful with FlashFill because sometimes the pattern isn't recognized...it's not 100% accurate.