don't know what else you want to accomplish, but this may work for you:

Sub test()
Dim arr As Variant
Dim lastrow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
lastrow = ws.Cells(Rows.Count, "A").End(xlUp).Row
arr = ws.Range("A2:A" & lastrow)

MsgBox UBound(arr)
End Sub

You're looping within your "for/next" loop.

I wouldn't use a variable named count, either.  It looks too much like the
.count property.  It may not confuse excel, but it would confuse me:

Option Explicit
Sub testme()

   Dim myCount ' counter
   Dim people() As String 'array
   Dim Row_Count As Long
   Dim Max As Long
   Dim i As Long

  'find how many people listed in sheet 2 column A
   Sheets("Sheet2").Select
   Range("a1").Select
   Selection.CurrentRegion.Select
   Row_Count = Selection.Rows.count - 1 'Subtract header
   
   Max = Row_Count 'array is this big
   ReDim people(1 To Max) 'redim array
   i = 0
   For myCount = 1 To Max
       If IsEmpty(ActiveCell.Value) Then
           'skip it
       Else
           i = i + 1
           people(i) = ActiveCell.Value
       End If
       ActiveCell.Offset(1, 0).Select
   Next myCount
   
   If i = 0 Then
       MsgBox "no cells added"
   Else
       ReDim Preserve people(1 To i)
   End If

End Sub

This should do the trick:

Sub test()
Dim people() As String 'array
Dim Max As Long
Dim i As Integer

  'find how many people listed in sheet 2 column A
   'Sheets("Sheet1").Select
   'Range("a1").Select
   'Selection.CurrentRegion.Select
Max = Sheet1.Cells(Rows.count, 1).End(xlUp).Row - 1 'Subtract header
'array is this big
ReDim people(1 To Max) 'redim array
For i = 1 To Max
people(i) = Cells(i + 1, 1)
Next i

'this will put the array back in col C
For i = 1 To Max
   Range("C" & i + 1).Value = people(i)
Next
End Sub

Mike F