Transfer information from one sheet to another using a command button!

I want to transfer the data from "INPUT" to "RAWDATA" putting the information in to the relevant columns and look for the next available "Clear" cell.

In some circumstances some cells may be filled but some blank in which case it would need to look for the next completely clear row.

I have attached a copy so hopefully it makes more sense

Looks and works well I would like to have the sheets hidden. I have changed the coding to cover some more cells and a few basic changes but code you code it to hide and unhide the relevant sheets:

Sub Submit_Data()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim FR As Long, sh As Worksheet
Set sh1 = Sheets("INPUT")
Set sh = Sheets("RAWDATA")
cels = Array("D4", "D5", "D6", "D7", "D8", "D9", "D10", "D11", "D12", "D13", "D14", "D15", "D17", "D18", "D19", "D20", "D22", "D23", "D24", "D25", "D26", "D27", "D28", "D30", "D31", "D32", "D33", "D34", "D36", "D37", "D38", "D39")
With sh
FR = .Range("A" & .Rows.Count).End(xlUp).Row + 1
j = 1
For i = LBound(cels, 1) To UBound(cels, 1)
sh1.Range(cels(i)).Copy
.Cells(FR, j).PasteSpecial (xlPasteValues)
j = j + 1
Next
.Select
.Range("A9").Select
sh1.Select
sh1.Range("D4:D22").ClearContents
sh1.Select
sh1.Range("G15:J15").ClearContents
sh1.Select
sh1.Range("D28").ClearContents
sh1.Select
sh1.Range("D24").ClearContents
End With
MsgBox "Data Submitting Done !"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

I have a home screen with command buttons and command buttons on each sheet which will make sheets visible (TRUE/FALSE) but it will not submit the data as the sheet is hidden so it is only an issue between the Input & Rawdata sheet. So when you hit the Submit Data it will unhide the rawdata sheet submit then re-hide - Make sense? :-)