>>539

Sub test()
Dim i As Long
With ThisWorkbook.Sheets(1)
　For i = 1 To .Cells(1, 1).End(xlDown).Row
　　.Cells(i, 1) = .Cells(i, 2) & .Cells(i, 1)
　Next i
End With
End Sub

ただし、実行するたびにノーチェックでB列の内容をA列の頭に付け加えるので
何度も実行すると
鈴木　男　の場合
男男男鈴木　男　とかになる
最初の一文字をチェックするとしても
苗字が「男」で始まるもの（男澤、男鹿、男谷、男山、など）や
「女」で始まるもの（女部田、女屋、女池、など）も実在するので
そういった場合はどうすんのってことにもなりかねない