Firstly, please bear in mind that this is a public forum and any Poster who starts a thread asking for help needs to keep all correspondence on the forum.
Other people may come here looking for resolutions similar to your own hence it is a simple case of help one, help all.
Therefore, to be fair to all we cannot correspond by e-mail or PM to resolve your issue and any Volunteer on this forum will refuse to do so. Please make yourself familiar with the CCM Charter (click on "Charter" at the bottom of this page).
Secondly, the second link you supplied with the Certificate of Proficiency was not required, so I have deleted it. This type of personal information should not be displayed on any forum.
Thirdly, your request:
I believe that the following code should do as you would like:-
Application.ScreenUpdating = False
Dim lRow As Long
Dim MySheet As String
lRow = Range("A" & Rows.Count).End(xlUp).Row
For Each cell In Range("AE5:AE" & lRow)
MySheet = cell.Value
cell.EntireRow.Copy Sheets(MySheet).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Application.ScreenUpdating = True
Application.CutCopyMode = False
The code searches Column AE for the criteria, in this case the Vessel Names, and transfers the rows of data associated with a particular name directly to the individual sheet. Following is a link to your work book which I have updated with the code:-
I have also removed the numbers from Column A in each sheet (other than the Main Data Base sheet) as these numbers are transferred from the Main Data Base sheet with the rest of the row on execution of the code.
In the sample work book, enter some fictitious data in a few rows and click on the Transfer Data button. You will see that the data is transferred to each individual sheet based on what name you enter in Column AE.
Create a copy of your work book to test the code with your actual data before implementing the code into your actual work book.
I hope that this helps.