Public first_name As String
Public second_name As String

Sub vbvb()
    Dim empl1 As New person
    Dim empl2 As New person
    
    empl1.first_name = "andy"
    empl1.second_name = "Smith"    
    empl2 = empl2 ' здесь возникает ошибка...!
End Sub

'Class person
Public first_name
Public last_name

'Class group
Public list_of_people As New Collection

Public Sub add_person(ByVal instance As person)
    list_of_people.Add (instance)
End Sub


Sub populate_department()

    Dim employee As New person
    Dim department As New group
    Dim index As Variant
    
    employee.first_name = "Peter"
    employee.last_name = "Ivanov"

    department.add_person (employee)   

    
End Sub

Sub pop()
    
    Dim index        
    Dim isthis() As New line    
    Dim interim As New line    
    Dim col1 As New Collection
    Dim col2 As New Collection
    
    ReDim Preserve isthis(1 To 1)
    isthis(1).num = 55
    isthis(1).val = 1500
    isthis(1).des = "portfolio 1"
    
    ReDim Preserve isthis(1 To 2)
    isthis(2).des = "portfolio 2"
    isthis(2).num = 40
    isthis(2).val = 2000
    
    col1.Add isthis(1)
    col2.Add isthis(2)
    
    isthis(1).num = 123    
    interim.des = "interim portfolio"
    interim.num = 555
    interim.val = 1    

    col2.Add interim 'здесь добавляем экземпляр класса    
    interim.val = 0 ' здесь изменяем параметр экземпляра после добавления ранее класса в коллекцию    
    Debug.Print col2(2).val  ' здесь будет 0, а хотелось бы чтобы было старое значение 1

End Sub

Sub postpost()

    Dim url As String
        url = "http://localhost:8080/handler3.php"
         Dim http As New WinHttpRequest
            http.Open "POST", url, False
            http.Send ("name=arina&age=25")
            
            Dim Resp As String: Resp = http.ResponseText
            Debug.Print Resp
End Sub

       Worksheets("PN").Range("C5").Offset(index1, index) = Application.WorksheetFunction.index(Worksheets("PT").Range("A1:CKF759"), _
        Application.WorksheetFunction.Match(target_date, Worksheets("PT").Range(Cells(1, index2), Cells(524, index2)), 0), _
       Application.WorksheetFunction.Match(target_ticker, Worksheets("PT").Range(Cells(1, 1), Cells(1, 3000)), 0))

Sub MyMacro()
  Dim index As Integer

  For index = 1 To 10
    ActiveCell.Offset(index).Value = index
  Next index

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range: Set rng = [A1:A1]
    If Not Intersect(rng, Target) Is Nothing Then MyMacro
End Sub

Public Function returnTable(value as string) as object

  Dim myArray( 1 to 2, 1 to 2) as variant
  myArray(1,1)=1
  myArray(1,2)=2
  myArray(2,1)=3
  myArray(2,2)=4

 returnTable=myArray()

end Function

Type house
    name as string
    location as strong
flats as apartments

End Type:
Type apartments
    number as integer
    name as string
End Type