Code needed to auto populate cells on another worksheet

[Msears]

Hello All, I am in need to a code to do this: I have data on a worksheet called "Data Entry" It consists of Columns B:M. I want it to find a word, for instance "Group Skills" in Col C, when found auto populate on worksheet "Group Skills, in Columns A:L, starting with line 2. New data is entered line by line upon update. Is this possible? Thanks in advance!

 

[ranman256]

paste into module, run: FindGroupSkill

Sub FindGroupSkill()
Dim wsSrc As Worksheet, wsTarg As Worksheet
Dim vSkill2Find, vSkill
Dim r As Long
Sheets("Data Entry").Activate
Set wsSrc = ActiveSheet
Sheets("Group Skills").Select
Set wsTarg = ActiveSheet
ClearTheCells
wsSrc.Activate
Range("A2").Activate
vSkill2Find = InputBox("Enter Skill to find", "Find Group skill")
If vSkill2Find = "" Then Exit Sub
While ActiveCell.Value <> ""
   vSkill = ActiveCell.Offset(0, 2).Value
   If LCase(vSkill) = LCase(vSkill2Find) Then
      r = ActiveCell.Row
      Rows(r & ":" & r).Copy
      wsTarg.Activate
      ActiveSheet.Paste
      Application.CutCopyMode = False
      ActiveCell.Offset(1, 0).Select 'next row
     
      wsSrc.Activate
   End If
   
   ActiveCell.Offset(1, 0).Select 'next row
Wend
wsTarg.Activate
MsgBox "Done"
Set wsSrc = Nothing
Set wsTarg = Nothing
End Sub


Private Sub ClearTheCells()
    Range("A2:M500").ClearContents
    Range("A2").Activate
End Sub

 

[Msears]

Hello Ranman 256. I copied the code above in the tab called "Group Skills". When I enter data into "Data Entry" Tab is doesn't populate in "Group Skills" Can you explain the purpose of the "Clear The Cells"?