Dim nSelRowCount As Long
Dim nSelRowNum As Long
    
'선택한 행의 개수를 결정한다.
nSelRowCount = fpSpread1.SelBlockRow2 - fpSpread1.SelBlockRow + 1
'선택한 행번호들을 배열에 저장한다.
nSelRowNum = fpSpread1.SelBlockRow

For i = 1 To nSelRowCount
    fpSpread1.DeleteRows nSelRowNum, 1
    fpSpread1.MaxRows = fpSpread1.MaxRows - 1
Next