How to add to rather than replace using this code snippet

[drmingle]

How to modify this code so that it actually adds to the list of results rather than replace:

Sub EncID_IP()
'.:: Extract EncID
'
    Dim lRow As Long ' East to West
    Dim bCount As Byte '1,2,3
    Dim sServiceHit As String 'Service used to find EncID
    Dim rRange As Range, rCell As Range 'What am I cycling through?
    Dim ws As Worksheet 'Canvas

    Sheets("IP Breakout").Select
    Set ws = Sheets("Results IP") 'dumping ground
    ws.Range("A1") = "EncID" 'extract data
    Set rRange = Range("A2", Range("A" & Rows.Count).End(xlUp)) 'Create a dynamic range to search

    lRow = 2 ' go to 2 deep
    For Each rCell In rRange 'look at every cell in the dynamic range
        If sServiceHit <> rCell.Offset(, 4) Then
           sServiceHit = rCell.Offset(, 4)
           bCount = 0
        End If
        If bCount < 2 Then ' if  X < 2
            ws.Cells(lRow, "A") = rCell 'Canvas cell A + X
            bCount = bCount + 1 'Add to my count by 1
            lRow = lRow + 1 ' Add to my row by 1
        End If
    Next rCell

End Sub

 

[mirabeau]

How to modify this code so that it actually adds to the list of results rather than replace:

Sub EncID_IP()
'.:: Extract EncID
'
    Dim lRow As Long ' East to West
    Dim bCount As Byte '1,2,3
    Dim sServiceHit As String 'Service used to find EncID
    Dim rRange As Range, rCell As Range 'What am I cycling through?
    Dim ws As Worksheet 'Canvas

    Sheets("IP Breakout").Select
    Set ws = Sheets("Results IP") 'dumping ground
    ws.Range("A1") = "EncID" 'extract data
    Set rRange = Range("A2", Range("A" & Rows.Count).End(xlUp)) 'Create a dynamic range to search

    lRow = 2 ' go to 2 deep
    For Each rCell In rRange 'look at every cell in the dynamic range
        If sServiceHit <> rCell.Offset(, 4) Then
           sServiceHit = rCell.Offset(, 4)
           bCount = 0
        End If
        If bCount < 2 Then ' if  X < 2
             [COLOR=red]ws.Cells(lRow, "A") = ws.Cells(lRow, "A") + rCell[/COLOR] 'Canvas cell A + X
            bCount = bCount + 1 'Add to my count by 1
            lRow = lRow + 1 ' Add to my row by 1
        End If
    Next rCell

End Sub

Just guessing because I don't really know what the code was designed to do, and it would help if you posted some sample data to illustrate.

But, if you change the red line as indicated, does it do anything useful for you?

 

[Mohammad Basem]

When updating the original (source) table, do you replace all data with new set or you just append it (add records at the bottom)?

Please explain this point because when you want to add rather than replace it means that the old set has been replaced with another one.

By the way, this is part of your previous thread, you could have just posted there.

 

[drmingle]

The source table is the same data, but I am using a different sort filter which in effect creates a new source table. This is true because the current code checks to see if the Service Hit is the same and pulls the first 2 it runs across. I need it to append to the previous list what is finds.

Mohammad Basem you are correct about where I should have posted this. I will connect the two once this has post has been made complete.

 

[Mohammad Basem]

But in this case you will have duplicates; the first list and subsequent lists of same data. Is this the case?