Copy cell into another if it contains 7 characters

[jriemanx2]

I need help writing a macro to do the following.

If cell A1 contains 7 characters then copy it to cell Z1, if not put in dummy 7 characters XXXXXXX
Keep evaluating each row if it doesnt contain 7 characters in column A paste the last cell in column A that did in column Z, if it does contain 7 characters then paste that in column Z and continue to use that value until in column Z until another 7 characters is found in column A.

EX.
A1 = AAA Then Z1 = XXXXXXX
A2 = BBBBBBBBB Then Z2 = XXXXXXX
A3 = ABCDEFG Then Z3 = ABCDEFG
A4 = CCC Then Z4 = ABCDEFG
A5 = 9/23/2015 Then Z5 = ABCDEFG
A6 = BCDEFGH Then Z6 = BCDEFGH
A7 = DDD Then Z7 = BCDEFGH
A8 = 10/23/15 Then Z8 = BCDEFGH
A9 = AAAAAAAAA Then Z9 = BCDEFGH
A10 = CDEFGHI Then Z10 = CDEFGHI
. . . . . and so on.

Any help would be appreciated. Thanks!

[Richard Buttrey]

What's the relevance of mentioning a date? From your example it seems this is irrelevant.

[scottiex]

or if your example is actually an example then a sheet is much better than just typing it into the post.

[scottiex]

Also please

1) change your title to one that that describes your problem
2) put code inside code tags

as per forum rules.

[jriemanx2]

You are correct, being a date should not matter. I have updated the verbage and the title.
Thanks!

[protonLeah]

withdrawn...

[jindon]

VBA?

Sub test()
    With Range("a1", Range("a" & Rows.Count).End(xlUp)).Columns("z")
        .Formula = "=if(len(a1)<>7,if(row()=1,rept(""X"",7),offset(Z1,-1,0)),A1)"
        .Value = .Value
    End With
End Sub

[jriemanx2]

The VBA code worked perfectly.
Thanks!!