what does this code do?

[dpaton05]

What does this line of code do in the following procedure?

With srcWS.Range("A:A,B:B,H:H")

Private Sub CmdSend_Click()
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    Dim desWS As Worksheet
    Dim srcWS As Worksheet
    Set srcWS = ThisWorkbook.Sheets("NPSS_quote_sheet")
    Set desWS = Workbooks("Costing tool.xlsm").Sheets("Home")
    
    Dim lastRow1 As Long
    Dim lastRow2 As Long
    lastRow1 = srcWS.Range("B" & srcWS.Rows.Count).End(xlUp).Row
    lastRow2 = desWS.Range("A" & srcWS.Rows.Count).End(xlUp).Row
    
    Dim i As Long
    Dim header As Range
    Dim x As Long
      
    With srcWS.Range("A:A,B:B,H:H")
        For i = 1 To .Areas.Count
            x = .Areas(i).Column
            Set header = desWS.Rows(4).Find(.Areas(i).Cells(10), LookIn:=xlValues, lookat:=xlWhole)
            If Not header Is Nothing Then
                srcWS.Range(srcWS.Cells(11, x), srcWS.Cells(lastRow1, x)).Copy
                desWS.Cells(lastRow2 + 1, header.Column).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
            End If
        Next i
    End With
    With desWS
        .Range("D" & lastRow2 + 1 & ":D" & .Range("A" & .Rows.Count).End(xlUp).Row) = srcWS.Range("G7")
        .Range("F" & lastRow2 + 1 & ":F" & .Range("A" & .Rows.Count).End(xlUp).Row) = srcWS.Range("B7")
        .Range("G" & lastRow2 + 1 & ":G" & .Range("A" & .Rows.Count).End(xlUp).Row) = srcWS.Range("B6")
    End With
    With Application
        .CutCopyMode = False
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub

 

[sericom]

You use 'With' when you are doing multiple things with the same object, to shorten/simplify your code.
In your example, if you didn't use 'With', it would look like this

       For i = 1 To srcWS.Range("A:A,B:B,H:H").Areas.Count
            x = srcWS.Range("A:A,B:B,H:H").Areas(i).Column
            Set header = desWS.Rows(4).Find(srcWS.Range("A:A,B:B,H:H").Areas(i).Cells(10), LookIn:=xlValues, lookat:=xlWhole)
            If Not header Is Nothing Then
                srcWS.Range(srcWS.Cells(11, x), srcWS.Cells(lastRow1, x)).Copy
                desWS.Cells(lastRow2 + 1, header.Column).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
            End If
        Next i

 

[footoo]

https://docs.microsoft.com/en-us/do...-reference/statements/with-end-with-statement

 

[dpaton05]

You use 'With' when you are doing multiple things with the same object, to shorten/simplify your code.
In your example, if you didn't use 'With', it would look like this

       For i = 1 To srcWS.Range("A:A,B:B,H:H").Areas.Count
            x = srcWS.Range("A:A,B:B,H:H").Areas(i).Column
            Set header = desWS.Rows(4).Find(srcWS.Range("A:A,B:B,H:H").Areas(i).Cells(10), LookIn:=xlValues, lookat:=xlWhole)
            If Not header Is Nothing Then
                srcWS.Range(srcWS.Cells(11, x), srcWS.Cells(lastRow1, x)).Copy
                desWS.Cells(lastRow2 + 1, header.Column).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
            End If
        Next i

Sorry, I didn't explain what bit I don't understand. I understand the with statement but why does it have a for instance, A:A? Is this because it is a column and why is it those 3 columns, A:A,B:B,H:H?

I am just trying to understand this piece of code.