I have found this code in another tread, however as I wrote, I need it to take the values from the rows between the blank values - this one only take values below the blank cell and paste it above, I need it to both paste it above and below (so the same value appear twice.

Sub Foo()
Dim t As String
Dim M As Long
Dim M2 As Long
Dim Rng As Range, c As Range
Dim Lastrow As Long

M2 = 2
Lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Set Rng = Range("A2:A" & Lastrow)
        For Each c In Rng
            If c <> "" Then
            t = t & c & " "
            Else
                If c = "" Then
                M = c.Row
                    If t = "" Then
                    Else
                        t = Left(t, Len(t) - 1)
                        Cells(M2, 1).Value = t
                        t = ""
                        M2 = M
                    End If
                End If
            End If
        Next c
    t = Left(t, Len(t) - 1)
    Cells(M2, 1).Value = t
End Sub
Can anyone help me how to tweak this code to do the job?
Thanks in advance, appreciate any tips.