Copy data from certain cells automatically and then delete the data from 1st worksheet

Hi I am new and i don't know much about macro's yet. Sorry for my grammar.

I would like to import some date from a website. This i do manually (just copy paste). Then i would like to copy certain cells from this worksheet (1st worksheet) to other cells in another worksheet (2nd worksheet), so that i would only have the data i need and i would have my own lay-out. Finally i should be able to delete the imported data without this having an influence on the 2nd worksheet. I would like that excel does this automatically after i paste the imported data in my excel.

Explanation:

- cell C9 in 1st worksheet has a certain value.
- column A in 2nd worksheet contains values of the same kind as cell C9 in 1st worksheet
- A particular cell in column A from the 2nd worksheet has the exact same value as C9 in 1st worksheet.
- Data from some cells in 1st worksheet (let's say:B3, G8, G9, F3) should be autmotically copied to certain cells in the relevant row in the 2nd worksheet
- Data in 1st worksheet can now be deleted.
- 2nd worksheets keeps this data.

Thanks in advance

i will look into it. Thanks!

It doesn't work. Is it because i have a dutch version of excel?

Also i have changed the cell names to test and simplify the code. The 2nd worksheet is called 'Objecten'

Private Sub Worksheet_Change(ByVal Target As Range)

'#
'# delare private variables
'#
   Dim pvt_obj_MonitoringRange As Excel.Range
   Dim pvt_obj_FindRange As Excel.Range
   
'#
'# set the range to monitor to consist of the cells that are being changed by the paste operation which
'# should trigger the copy action - additional cells to be monitoreed should be added to the below statement
'# as the range object is also used to clear the appropriate fields on worksheet 1
'#
   Set pvt_obj_MonitoringRange = Union(Range("F3"), Range("N13"))
   
'#
'# check if one or more cells have changed that are part of the range to monitor - if so start the
'# process of copying data
'#
   If Not Intersect(Target, pvt_obj_MonitoringRange) Is Nothing Then
   
   '#
   '# attempt to find the row on worksheet 2 where the value in column A equals the value entered/pasted
   '# in cell C9 on this worksheet
   '#
      Set pvt_obj_FindRange = ThisWorkbook.Worksheets("Objecten").Columns("A").Find(Target.Parent.Range("F3").Value)
      If pvt_obj_FindRange Is Nothing Then
         MsgBox "Unable to find argument " & Target.Parent.Range("F3").Value, vbCritical, "Not found"
         Exit Sub
      End If
      
   '#
   '# update the data on the second worksheet - the column offset refers to column A where the search was
   '# conducted - so offset value 1 = column B, value 2 - column C etc
   '#
      With pvt_obj_FindRange
         .Offset(0, 22).Value = Target.Parent.Range("N13").Value             '# writes value B3 to B column on worksheet 2
      End With
   
   '#
   '# clear the fields that are part of the monitoring range - disable the Excel event model to avoid
   '# this action from triggering this routine itself again
   '#
      Application.EnableEvents = False
      pvt_obj_MonitoringRange.ClearContents
      Application.EnableEvents = True
      
   End If

End Sub
Sub Import_van_taxatiekaart()

End Sub

I got it. You're a boss! thanks man!