input data and clear cells

[ea223]

Is it possible to have a macro that when clicked the value of highlighted cells are inputted into a table and the values in these highlighted cells are cleared. Then when the cells have data in them again and the macro is clicked again these next set of values are inserted into the next row of the table.

[JBeaucaire]

This is the basic approach:

Option Explicit

Sub FormToDatabase()
'Transfer data from specific cells on a form sheet to a database sheet

Dim wsFORM As Worksheet, wsDATA As Worksheet, NR As Long

Set wsFORM = Sheets("MyForm")
Set wsDATA = Sheets("Database")

NR = wsDATA.Range("A" & Rows.Count).End(xlUp).Row + 1

With wsFORM
    wsDATA.Range("A" & NR).Value = .Range("A1").Value
    wsDATA.Range("B" & NR).Value = .Range("C10").Value
    wsDATA.Range("C" & NR).Value = .Range("E11").Value
    wsDATA.Range("D" & NR).Value = .Range("A12").Value
    wsDATA.Range("E" & NR).Value = .Range("C15").Value
    'etc, add more rows as needed

    'now clear all the cells used above to reset the form
    .Range("A1,C10,E11,A12,C15").ClearContents
End With

End Sub