Help Required : Random Sampling of Data

[anish.ms]

Hi Paul, in the proportionate method if I choose the column revenue with a sample size of 40 and proceed, it gives me 200 samples?
Will you be able to look into this?

if I remove the below line, I'm getting 7 samples

    If n < numRecordsProportional Then
        For iStrata = 1 To numStrata
            If aryStrataSamples(iStrata) = 0 Then aryStrataSamples(iStrata) = 1
        Next iStrata
    End If

How can I make it at least nearest to the sample size?