VBA 複数行を1行にするマクロ

以下の処理をしたいのですが、マクロが分からないのでご教授願えますか？

1991.12-16 A B C
D E F
G
1991.12-16 H I
J K L
M N

これら全てセルAに入力されているデータです。
行数は1から順に2,3と続いています。
ここでは6行ですが本来は最終行は1000や2000などと毎回異なります。

これを以下のようにしたいです。
1991.12-16 A B C D E F G
1991.12.16 H I J K L M N

こちらもセルAに表示されるようにしたいです。

簡単にまとめると、年月単位で横一列になるようなマクロを教えてほしいです。

質問者からの補足コメント

• 最初になるのは必ず日付です。
  
  1行にしたいデータの行数は不特定です。
  また、B列より右にはデータはありません。
  可能です！

  No.2の回答に寄せられた補足コメントです。 補足日時：2021/09/22 11:20

• VBAで、ボタンを押すことで1行にするというマクロにしたいです。

  No.1の回答に寄せられた補足コメントです。 補足日時：2021/09/22 11:24

No.5 回答者： ママチャリ 回答日時： 2021/09/22 23:39

'ウォ～イェ～～ィエイエ～イエイエ～～ウォウォ～オ～

'初めまして君の事を僕は知らない！！でも・・・・。
'こんなのでどうでしょう！！

Sub Macro1()
Dim i As Long
Dim a As String
For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
If IsDate(Replace(Split(Cells(i, "A").Value, " ")(0), ".", "-")) Then
Cells(i, "A").Value = Cells(i, "A").Value & a
a = ""
Else
a = Cells(i, "A").Value & a
Cells(i, "A").Delete (xlShiftUp)
End If
Next i
End Sub

No.4 回答者： めぐみん_ 回答日時： 2021/09/22 15:46

No.2です。

＞最初になるのは必ず日付です。

他の行は最初は日付でなくとも数字ではあるの？
または日付なら年を 1900~2099 と考えたとして 19* 20* を頭文字として切り分けられる内容でしょうか？

No.3 回答者： mygoonickname 回答日時： 2021/09/22 12:33

No.1の者です。

質問者さんが、マクロを作る姿勢が必要だと思います。
ヒントや、不明な点は、ここへ記載されれば回答してくれる方が多いかと。

取り合えず、今回のマクロで必要そうな命令文を記載しておきます。
先ずは、それを使って、ある程度組み立ててみて下さい。


●表の最終行まで繰り返す
https://excel-ubara.com/excelvba1r/EXCELVBA506.h …


1991.12-16 A B C

IF 〇〇 Like "####.##-##*" Then　で判定できるかと。

●Like演算子　
https://dailyrecords.blog/archives/9080#1__22


●文字の結合（&アンパサンド）
https://excel-ubara.com/excelvba1/EXCELVBA314.html

No.2 回答者： めぐみん_ 回答日時： 2021/09/22 11:16

データ形式として

・必ず最初になるのは『日付？』っぽい『数字』が頭文字の行ですか？
・１行にしたいデータの行数は不特定？

ちなみにＢ列より右にデータはありますか？
例えば一度Ｂ列に書き出しておいて、最後にＡ列を削除しデータをＡ列にするのは可能でしょうか？

No.1 回答者： mygoonickname 回答日時： 2021/09/22 11:10

おはようございます。

念のために、ExcelのVBAでしょうか？それとも、Access？
Accessだと分からないので。。。

下記、Excelなら、
必ず3行単位なのでしょうか？
多少手間ではありますが、関数や手作業、フィルターでも可能の様な
　気がしますが、それではダメでしょうか？